Задание 2 Урок 13.1

Задание 2 Урок 13.1

Выведите на экран таблицу умножения используя только циклы вида while.

var i, j: integer;
begin
  i := 1;
  while (i <= 9) do begin
    j := 1;
      while (j <= 9) do begin
        write(i, '*', j, '=', i*j, ' ');
        j:=j+1;
      end;
      writeln();
      i:=i+1;
   end;
   readln();
end.