Заданы длины 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.