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

var i,q,w,k:integer;

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