Урок 13.1 Задача 15

Урок 13.1 Задача 15

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var
  n,m:real;
begin
  m:=1;

  while (m<=9) do
  begin
    n:=1;
    while (n<=9) do
      begin
        write(n/m);
        n:=n+1;
      end;
    writeln();
    m:=m+1;
  end;

  writeln('konec');
  readln();
end.