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

Задача 14 урок 13.1

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

1x1 = 1
1x2 = 2
......

program U13_1Z14;
var a, b: integer;
begin
   a:=1;
   b:=1;
   while (a<=10) do
   begin
     while (b<=10) do
       begin
         writeln(a, 'x', b, '=', a*b);
         b:=b+1;
       end;
      b:=1;
      a:=a+1;
      writeln();
    end;
  readln();
end.