Вывести на экран значения произведений чисел a и b. Числа а изменяются от 1 до 11 с шагом 1, и - от 1 до 3 с шагом 0.2

[ALEXandr20333]

Вывести на экран значения произведений чисел a и b. Числа а изменяются от 1 до 11 с шагом 1, и - от 1 до 3 с шагом 0.2

[Bugrimov]

uses crt;
var
  a, b  : real;
begin
  writeln;
  a := 1;
  b := 1;
  
  while((a <= 11) or (b <= 3)) do
  begin
    writeln(' ', a , ' * ', b, ' = ', (a * b));
    a := a + 1;
    b := b + 0.2;
  end;
  writeln;
end.

[Poma][a]

ИМХО цикл в цикле