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

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.