Код программы
Program ELMpr_laba3;
Var a,b,c,d: integer;
Begin
Read(a,b,c,d);
if((a=b)and(c=d))or((a=c)and(b=d))or((a=d)and(b=c)) then write('True')
else write('False');
End.
1. Дано длины четырех отрезков a,b,c,d.
2. Если отрезки попарно равны, значит можно создать прямоугольник. Сравниваем попарно отрезки.
2.1 Если a=b и c=d, или a=c и b=d, или a=d и b=c, то можно составить прямоугольник. Если нет, то прямоугольник составить невозможно.