ПОМОГИТЕ ПОЖАЛУЙСТА!!!Заданы длины 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         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.