Заданы числа. Найти: 1.среднее значение 2.сумму четных чисел 3.сумму нечетных чисел — Pascal(Паскаль)

program azat;
uses crt;
var n,sc,sn,k:integer;
    sa:real;
begin
clrscr;
sc:=0;sn:=0;sa:=0;
writeln ('vvedite celye chisla, okonchanie 0:');
repeat
readln (n);
k:=k+1;
sa:=sa+n;
if odd(n) then sn:=sn+n
else sc:=sc+n;
until n=0;
writeln ('Srednee=',sa/k:0:2);
writeln('Summa chetnyh=',sc);
writeln('Summa nechetnyh=',sn);
end.