Program primer;
Uses crt;
var a,b,c,d: real;
begin clrscr;
write('Введите длину отрезка a = ');
readln(a);
write('Введите длину отрезка b = ');
readln(b);
write('Введите длину отрезка c = ');
readln(c);
write('Введите длину отрезка d = ');
readln(d);
writeln;
if (a<=0) or (b<=0) or (c<=0) or (d<=0) then<br> writeln('Длины не могут быть отрицательными или равляться нулю')
else
begin
if (a=b) and (a=c) and (a=d) then
writeln('Отрезки могут быть стороами квадрата')
else
writeln('Отрезки не могут быть стороами квадрата');
if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then
writeln('Отрезки могут быть стороами прямоугольника')
else
writeln('Отрезки не могут быть стороами прямоугольника');
end;
readln;
end.