Начертите блок ввода данных по формуле: s прямоугольника=a*b

Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrGen(12,10,(i,j)->111+j-10*i); a.Println(5)
end.

Результат
  111  112  113  114  115  116  117  118  119  120
  101  102  103  104  105  106  107  108  109  110
   91   92   93   94   95   96   97   98   99  100
   81   82   83   84   85   86   87   88   89   90
   71   72   73   74   75   76   77   78   79   80
   61   62   63   64   65   66   67   68   69   70
   51   52   53   54   55   56   57   58   59   60
   41   42   43   44   45   46   47   48   49   50
   31   32   33   34   35   36   37   38   39   40
   21   22   23   24   25   26   27   28   29   30
   11   12   13   14   15   16   17   18   19   20
    1    2    3    4    5    6    7    8    9   10