Дано натуральное число. определить каких цифр в данном числе больше четных или нечетных. через паскаль

Var n: longint;       s: string;       i, ch, nech: integer; begin         readln(n);         s: =inttostr(n);                 i: =1;         while (i < = length(s)) do         begin                   if (strtoint(s[i]) mod 2 = 1) then nech: =nech+1                   else ch: =ch+1;             i: =i+1;         end;                 if (ch > nech) then writeln('чётных чисел больше');         if (ch < nech) then writeln('нечётных чисел больше');         if (ch = nech) then writeln('чётных и нечётных чисел поровну'); end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.