Решить номера на этом листочке

const

  m = 2;

  n = 3;

var

  a, b, c: array [0..m - 1,0..n - 1] of real;

  ct: array [0..n - 1, 0..m - 1] of real;

  i, j: integer;

begin

    // заполнение матрицы с среднеарифметическими значениями а и в

    for i : = 0 to m - 1 do

      for j : = 0 to n - 1 do

        c [i, j] : = (a [i, j] + b [i, j]) / 2;

    // транспонирование с в ct

    for i : = 0 to m - 1 do

      for j : = 0 to n - 1 do

        ct [j, i] : = c [i, j];

end;

var

  a, b, n, i, j, t: integer;

  s, sn: string;

begin

    write ('введите начало отрезка: ');

    readln (a);

    write ('введите окончание отрезка: ');

    readln (b);

    n : = 0;

    for i : = a to b do begin

      s : = inttostr (i);

t : = 1;

for j : = 1 to length (s) do

        t : = t * strtoint (s[j]);

      if t > n then begin

        sn : = s;

        n : = t;

      end;

    end;

    writeln ('число с наибольшим произведением цифр: ' + sn);

end;