Использовать чертежник
алг
нач
сместиться в точку (0,0)
опустить перо
сместиться в точку (0,2)
сместиться в точку (-3,0)
сместиться в точку (3,3)
сместиться в точку (3,-3)
сместиться в точку (-3,0)
сместиться в точку (0,0)
сместиться в точку (0,2)
сместиться в точку (-5,0)
сместиться в точку (0,-2)
сместиться в точку (0,0)
кон​

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.