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