Известны длины сторон двух прямоугольников. Вычислить Площади прямоугольников и…

Program gt; var a,b,c,d: integer; beginread (a,b,c,d); if (a=b) then writeln ('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 1 ЯВ… КВАДратом'); if (c=d) then writeln ('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 2 ЯВ… КВАДратом'); if (a <= c) and (b <= d) or (a <= d) and (b <= c) or (a>=c) and (b>=d) or (a>=d) and (b>=c) then writeln ('ДА') else writeln ('НЕТ'); end.