даны действительные положительные числа a, d, c, b вычислить существует ли прчмоугольник с такими сторонами

A, b, c, d-данные числа

так как они действительные то хранить будем их в real

так как у прямоугольника 2 противолежащие стороны равны то будем проверят случаи где a=b и c=d или a=c и b=d или a=d и b=c

program chik;

var a, b, c, d:real;

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 writeln ('да, такой прямоугольник существует') else writeln ('нет, прямоугольник с такими сторонами не существует') ;

end.