Определить, можно или нет построить параллелограм из 4-х отрезков заданной длины. (в паскале)

Программа на языке Pascal:

var a,b,c,d: real;
begin
 
repeat
     writeln('Введите a,b,c,d');
     readln(a,b,c,d);
  until a*b*c*d<>0; //проверка длины отрезков <> 0

  if ((a=b) and (c=d)) or ((a=c) and (b=d)) then writeln('Параллелограмм' )
     else writeln('Не параллелограмм' ) ;
end.