atalgolas

program atlagolas;
uses crt;
var n, o, a, i:integer;

begin
clrscr;
writeln('H ny sz mot adsz meg?')       ;
readln(n); clrscr;
for i:=1 to n do
    begin writeln('Add meg a sz mot!');
          readln(a);
          o:=a+o;
    end;
 Writeln('Az  tlangunk: ',o/n:6:3 ); readln;
end.