Составить программу, которая определяет, является ли треугольник равносторонним.

program zz1;

var a, b, c:integer; / /заводим переменные

begin

write ('введите первую сторону треугольника '); / /вводим с клавиатуры первую сторону

read (a);

write ('введите вторую сторону треугольника '); / /вводим с клавиатуры вторую сторону

read (b);

write ('введите третью сторону треугольника '); / /вводим с клавиатуры третью сторону

read (c);

if (a=b) and (b=c) and (c=a) / /проверяем, если все стороны равны, то выводим один ответ, иначе другой

then write ('треугольник является равносторонним') else write ('треугольник не является равносторонним');

end.