Запишите на языке Паскаль программы решения задач № 25-30 из & 2.4. Используйте оператор while. 25) Напишите алгоритм, под управлением которого Робот обойдет прямоугольную область, обнесённую стеной, по периметру и закрасит угловые клетки. Размеры области неизвестны.

1) 73=1001001 (2)         2)91=1011011 (2)
     44=101100 (2)               28=11100 (2)

+1001001                            -1011011
     101100                                  11100
                             
  1110101= 117 (10)             111111=63 (10)

3)27=11011 (2)

    5=101 (2)
    *11011

          101

  +  11011

    00000

  11011

10000111=135

4)70=1000110 (2)

    7=111 (2)

 - 1000110 | 111

     111         |
    1010= 10 (10)

         -111

          111

               0

uses crt;
var a:array[1..99] of real;
i,j,n:integer;
max:real;
begin
write('Введите n: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(99-(-99)+1)-99;
write(a[i]:5);
end;
writeln;
max:=-5;
for i:=1 to n do begin
if abs(a[i])>max then begin max:=abs(a[i]);j:=i; end;
end;
writeln('Максимальное по модулю число равно ',a[j]);
end.

Здесь элементы массива - случайные числа от -99 до 99. В ответе выписывается само число, а не его модуль. Если нужен именно модуль, то меняем предпоследнюю строку на writeln('Максимальное по модулю число равно ',max);