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

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

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

var i, j: integer;
begin
  i:=1;

  while i<10 do
    begin
      j:=1;
      while j<10 do
      begin
        write(i, 'x', j, '=',i*j, ' ');
        j:=j+1;
      end;
    i:=i+1;
    writeln();
    end;

  writeln();
  writeln('<<Konec>>');
  readln();
end.