Заданы стороны треугольника 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.