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

program zz1;

var a, b, c, d:real; //задаем переменные не целого типа

begin

write(введите первую сторону прямоугольника );

read(a);  

write(введите вторую сторону прямоугольника );

read(b);

write(введите третью сторону прямоугольника );

read(c);

write(введите четвертую сторону прямоугольника );

read(d);

If (a = b) and (c = d) Then write( существует ) else

If (a = c) and (b = d) Then write( существует ) else

If (a = d) and (b = c) Then write( существует ) else

Writeln( прямоугольник не существует );

END.