Дано три стороны треугольника. Вычислить: будет ли он равносторонний — Pascal(Паскаль)

uses crt
var
a,b,c:real;
begin
writeln('vvtdite storony AB');
readln(a);
writeln('vvtdite storony BC');
readln(b);
writeln('vvtdite storony CA');
readln(c);
if (a=b) and (a=c) then writeln('ravnostoronnij')
else writeln('neravnostoronnij');
end.