var
a,b,c:integer;
begin
writeln('введите стороны угла');
realn(a,b,c)
if (a=b) and (b=c) then
writeln('прямоугольник равносторонний')
else
writeln('прямоугольник не равносторонний')
end.
var
a,b,c:integer;
begin
writeln('введите стороны угла');
realn(a,b,c)
if (a=b) and (b=c) then
writeln('прямоугольник равносторонний')
else
writeln('прямоугольник не равносторонний')
end.