Напишите программу для : на паскале- вывести на экран n чисел в прямом порядке то есть 1,*n 30

1.
var
i,n:integer;
 begin
   read(n);
    for i:=1 to n do 
     write(i,', ');
     end.
2.
var
i,n:integer;
 begin
    n:=9;
    for i:=1 to n do
      writeln(i,'*',n,'=',n*i);
      readln(i);
     end.