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.
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.
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.
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.