Вывести на экран столбик таблицы умножения на чисто n, вводимое с клавиатуры. pascalabc.

Program p1;
var n,i:integer;
begin
writeln('Введите число');
read(n);
for i:=1 to 10 do
begin
writeln(i,'x',n,'=',(i*n));   
end;
end.