7 класс Информитика.

program triangle;
var a, b, c : integer;
begin
writeln('Введите 1 сторону треугольника');
readln (a);
writeln('Введите 2 сторону треугольника');
readln (b);
writeln('Введите 3 сторону треугольника');
readln (c);
if (a + b < c) or (a + c < b) or (c + b < a) then
writeln ('Введенные стороны не могут быть сторонами треугольника') else
begin
if (a = b) and (b = c) then
writeln ('Треугольник равносторонний') else
writeln ('Треугольник неравносторонний')
end;
end.