Question

Распечатать в столбик таблицу умножения в Паскале на число n (значение n вводится с клавиатуры; 1

Answer 1

var

  i,b,n : integer;

begin

  readln(n);

  for i := 0 to 9 do

  begin  

      b := i * n;

      writeln(b);

  end;

end.

Вроде так, можешь проверить сам

Вариант с untill :

var

 i,b,n : integer;

begin

 i := 0;

 readln(n);

 repeat  

   b := i * n;

   writeln(b);

   i := i + 1;

 until (i = 10)

end.