даны действительные положительные числа 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.