ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Заданы длины a,b,c и d четырех отрезков прямой. Проверьте могут ли отрезки быть сторонами квадрата, прямоугольника.

Program primer;Uses crt;var a,b,c,d: real;begin clrscr;      write('Введите длину отрезка a = ');      readln(a);      write('Введите длину отрезка b = ');      readln(b);      write('Введите длину отрезка c = ');      readln(c);      write('Введите длину отрезка d = ');      readln(d);            writeln;      if (a<=0) or (b<=0) or (c<=0) or (d<=0) then         writeln('Длины не могут быть отрицательными или равляться нулю')                  else         begin      if (a=b) and (a=c) and (a=d) then         writeln('Отрезки могут быть стороами квадрата')      else          writeln('Отрезки не могут быть стороами квадрата');       if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then          writeln('Отрезки могут быть стороами прямоугольника')       else       writeln('Отрезки не могут быть стороами прямоугольника');        end;      readln;end.