Сумма и среднеарифмитическое

[microlab]

Составить программу для вычисления суммы N вводимых чисел и их среднее арифмитическое. Спасибо

[Mad_Cat]

var i,n:integer;
a,s:real;
begin
Write('N=');readln(n);
s:=0;
For i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln('Sum=',s:6:2);
Writeln('Avg=',s/n:6:2);
readln;
end.

[microlab]

спасибо большо