написать программу которая с клавиатуры вводит 5 целых чисел и вычисляет среднее арифметическое нечетных среди них.На ABC паскале пожалуйста

VarA,S,i,n:integer;Beginn:=0;S:=0;For i:= 1 to 5 do    Begin    Read(A);    if A mod 2 <> 0 then    Begin    S:=S+A;    n:=n+1;    WriteLn(A);    End;    End;Write(S/n);End.