program szamsor;
 uses crt;
 type sor=array [1..100] of integer;
 var x:integer;
     a:sor;
     i:integer;
begin
 clrscr;
  writeln ('Hany szamot szeretnel megadni?');
  readln (x);
   for i:=1 to x do
    begin
     write ('a[',i,']=');
     readln ( a[i]);
    end;
     for i:=1 to x do write (a[i],', ');
  readln;
end.