Решить в программе паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
четных чисел, введенных с клавиатуры.

#include <locale>

#include <iostream>

#include <cstdlib>

using namespace std;

int main(int argc, char argv[]) {

setlocale(LC_ALL, "Russian");

long long int a;

int i;

cout << "Введите число" << endl;

cin >> a;

if (a <= 1) {

 cout << "Ошибка ввода" << endl;

 return 1;

}

if (a % 2 == 0) {

 cout << "Наибольший делитель: " << a / 2 << endl;

}

else {

 for (i = a / 2; i > 1 && a % i; --i);

 if (i == 1)

  cout << "Наибольший делитель: " << i << endl;

 else {

  i = a / 2;

  while (a % i != 0)

   --i;

  cout << "Наибольший делитель: " << i << endl;

 }

}

return 0;

}

program Project1;

var

 S : String;

 K, Num1, Num2 : Integer;

begin

 repeat

   Writeln('Задайте целое число:');

   Readln(K);

   S := 'Мы собрали ' + IntToStr(K) + ' ';

   Num1 := K mod 10;

   K := K div 10;

   Num2 := K mod 10;

   case Num1 of

     1 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриб';

     end;

     2..4 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриба';

     end;

     else

       S := S + 'грибов';

   end;

   S := S + ' в лесу.';

   Writeln('Результат:');

   Writeln(S);

   Writeln('Повторить - Enter. Выход - любой символ + Enter.');

   Readln(S);

 until S <> '';

end