szamsor

program szamsor;
uses crt;
type sor=array[1..100] of integer;
var x,i:longint;
    a:sor;

begin
clrscr;
writeln('Hany szamot akarsz 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.