Треугольник со сторонами а, b, с является равносторонним. (программа на Паскаль)

Question

Треугольник со сторонами а, b, с является равносторонним.

Answer 1

uses crt;
var a,b,c:integer;
BEGIN
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if (a=b) and (b=c) and (c=a) then
  writeln('Treugolnic RAVNOSTORONNIJ')
    else
  writeln('Treugolnic NE RAVNOSTORONNIJ');
END.

Answer 2

program alexq;
uses crt;
var
 a,b,c: real;
begin
 clrscr;
 write('Vvedite A,B,C: ');
 readln(a,b,c);
 if (a=b) and (b=c) then writeln('Treugolnik ravnostoronniy')
 else writeln('Treugolnik ne ravnostoronniy');
 readkey;
end.