написать программу, которая выводит на экран таблицу умножения (для заданного числа от 1 до 10) Паскаль

program up1;
var
begin
writeln('введите число');
read(q);
for i:=1 to 10 do
begin
k:=k+1;
w:=q*k;
writeln(w);
end;
end.

var i,q,w,k:integer;