100 нарисовать замок в паскаль абс ​

паскаль авс:

program maxtv; uses crt; const n=10; var  a: array[1..n] of real;   r: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('введите r, не равное 0'); readln(r);   if r< > 0 then      begin          writeln('элементы массива: ');           randomize;               for i: =1 to n do                  begin                      a[i]: =random(100)-50;                       write (a[i]: 7: 2);                   end;               writeln();               writeln('заменяем 2,4,5,9: ');               a[2]: =a[2]/r;               a[4]: =a[4]/r;               a[5]: =a[5]/r;               a[9]: =a[9]/r;               for i: =1 to n do                  write (a[i]: 7: 2)      end   else      writeln('ну вас же просили не вводить 0! ');       end.

program n198453627; uses crt; var  n,i: integer;   max,v: real;   yes: string; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   max: =0;   yes: ='no';   writeln('введите количество машин (не больше 30 - у меня мало памяти! )');   write('n = ');   readln(n);   if n> 30 then          writeln('это слишком много! ')      else          begin              writeln('вводите зарегистрированную скорость каждого автомобиля');               for i: =1 to n do                  begin                      write(i,'-й автомобиль: ');                       readln (v);                       if v > 300 then                              begin                                  writeln ('по-моему, твои приборы плохо отрегулированы - так быстро машины не ездят! ');                                   writeln ('это число не будет учтено');                               end                          else                        if v < 1  then                              begin                                  writeln ('ты точно умеешь измерять скорость автомобиля? скорость не может быть меньше 1! ');                                   writeln ('это число не будет учтено');                               end                          else                              begin                                     if v< 30 then yes: ='yes';                                   if v> max then max: =v;                               end;                   end;               writeln();               writeln('максимальная зарегистрированная скорость: ',max);               writeln('cкорость меньше 30 км/ч? ',yes);           end; end.