Составить таблицу умножения для введенного числа — Pascal(Паскаль)

uses crt;
var x,i,n:integer;
begin
ClrScr;
Readln(x);
Writeln('n=');
Readln(n);
for i:=1 to n do
 Writeln(x*i);
Readln;
end.