Составьте алгоритмы чертёжником, после исполнения которых будут получены следующие рисунки 35

Procedure polar(x, y: real; var r, f: real); begin   r : = sqrt(sqr(x) + sqr(y));   if x = 0 then       if y = 0 then f : = 0       else       if y > 0 then f : = pi / 2 else f : = -pi / 2   else begin       f : = arctan(y / x);       if x < 0 then           if y > = 0 then f : = f + pi else f : = f - pi   end end; { тестовое решение } var   r, fi: real; begin   polar(1, 1, r, fi);   writeln('(+1; +1) -> (', r, '; ', fi, ')');   polar(1, -1, r, fi);   writeln('(+1; -1) -> (', r, '; ', fi, ')');   polar(-1, 1, r, fi);   writeln('(-1; +1) -> (', r, '; ', fi, ')');   polar(-1, -1, r, fi);   writeln('(-1; -1) -> (', r, '; ', fi, ')');   polar(0, 1, r, fi);   writeln('(0; +1)  -> (', r, '; ', fi, ')');   polar(0, -1, r, fi);   writeln('(0; -1)  -> (', r, '; ', fi, ')');   polar(0, 0, r, fi);   writeln('(0; 0)    -> (', r, '; ', fi, ')'); end. тестовое решение: (+1; +1) -> (1.4142135623731; 0.785398163397448) (+1; -1) -> (1.4142135623731; -0.785398163397448) (-1; +1) -> (1.4142135623731; 2.35619449019234) (-1; -1) -> (1.4142135623731; -2.35619449019234) (0; +1)  -> (1; 1.5707963267949) (0; -1)  -> (1; -1.5707963267949) (0; 0)    -> (0; 0)