Заданы стороны треугольника a b c . Определить , является ли он равносторонним. Написать программу на языке паскаль

Var a,b,c:integer;  
begin
writeln(Введите стороны треугольника: );
readln(a,b,c);
if (a = b) and (b = c) then
writeln(Равносторонний);
else
writeln(Неравносторонний);
readln
end.