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

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
nbsp;nbsp;writeln(Treugolnic RAVNOSTORONNIJ)
nbsp;nbsp;nbsp;nbsp;else
nbsp;nbsp;writeln(Treugolnic NE RAVNOSTORONNIJ);
END.

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