Ответ:

program multiplyByCounter;
var
   n : Integer;
   i : Integer;
begin
   readln(n);
   for i := 1 to 10 do
   begin
        writeln(n * i);
   end;
end.