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

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

var i,j:integer;

begin
  i:=1;
  j:=1;
  while i<11 do
begin
  while j<11 do
    begin
      writeln(i,'*',j,'=',i*j);
      j:=j+1;
    end;
  j:=1;
  i:=i+1;
end;
end.  

Консоль:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
1*10=10
2*1=2
2*2=4
2*3=6
2*4=8...