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