78 найдите сумму нечётных чисел вводимых с клавиатуры. вывод результата по вводу 0. блок-!

Var
  N, i, P, O, Z : Integer;
  R : Real;
begin
  Write('n = '); ReadLn(N);
  P := 0; O := 0; Z := 0;
  // для for         // для while       // для repeat
  for i := 1 to N do // i := 0;         // i := 0;
                     // while i < N do  // repeat
    begin            // begin           //   Inc(i)
                     //   Inc(i);
      Write(i, ' число = '); ReadLn(R);
      case sign(R) of
        +1 : Inc(P);
        -1 : Inc(O);
         0 : Inc(Z);
       end;
    end;             // end;            // until i = N;
  WriteLn('Процент положительных чисел: ', P*100/N);
  WriteLn('Процент отрицательных чисел: ', O*100/N);
  WriteLn('      Процент нулевых чисел: ', Z*100/N);
end.

тут даже больше

Если число кратно одновременно 7 и 9, то оно кратно и произведению 7×9=63

var
 a,b,m,k,s:integer;
 p:real;

begin
  Write('Введите границы интервала: '); Read(a,b);
  if a>b then begin
    m:=a; a:=b; b:=m
    end;
  m:=a mod 63;
  if m>0 then a:=a+63-m
  else if m<0 then a:=a-m;
  s:=0; p:=1; k:=0;
  while a<=b do begin
    s:=s+a; p:=p*a; k:=k+1;
    a:=a+63
    end;
  Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');
  Writeln('Количество ',k,', сумма ',s,', произведение ',p)
end.

Пример
Введите границы интервала: 613 2100
На интервале для чисел, кратных 7 и 9 одновременно:
Количество 24, сумма 32508, произведение 3.65675480699261E+74