atlag

program atlag;
uses crt;
var x,i,a,n:integer;

begin
clrscr;
writeln('Hany szamot fogsz megadni?');
readln(n);
for i:=1 to n do
 begin
  writeln ('Add meg a szamot: ');
  readln(a);
  x:=a+x;
  end;
writeln('Az atlag: ', x/n:6:2);
readln;
end.