Составить функцию которая определяет верно ли что сумма его цифр четное число. пример: введите число 136 сумма цифр на языке pascal.abc.net

Function check(x:integer):boolean;var y: integer;beginy:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);
if y mod 2 = 0 then check:=true else check:=false;end;
beginwriteln(check(136));end.

Программа:

type Student=record

 FIO:string;

 year:integer;

 obj:string;

 mark:integer;

end;

var

 i:integer;

 objec:string;

 s: array [1..3] of Student;

BEGIN

 // 1-ый студент

 s[1].FIO:= 'Петров П.П.';

 s[1].mark:= 3;

 s[1].obj:= 'Математика';

 s[1].year:= 1997;

 // 2-ой студент

 s[2].FIO:= 'Иванов И.И.';

 s[2].mark:= 5;

 s[2].obj:= 'Математика';

 s[2].year:= 1999;

 // 3-ий студент

 s[3].FIO:= 'Сидоров С.С.';

 s[3].mark:= 5;

 s[3].obj:= 'Математика';

 s[3].year:= 1998;

 write('Введите предмет: ');

 readln(objec);

 writeln('Список студентов по заданным параметрам:');

 for i:=1 to 3 do

   if (s[i].obj = objec) and (s[i].mark = 5) then

     writeln(s[i].FIO, ' - ' , s[i].year)

END.

Объяснение:

 var i,s:integer;

 begin

   i:=10;s:=0;

   for i:=10 to 99 do

   if i mod 2<>0 then s:=s+i;

  writeln('Сумма нечетных 2-значных чисел(for)',s);

  readln;

  i:=10;s:=0;

  while i<=99 do

    begin

      if i mod 2<>0 then s:=s+i;

      i:=i+1;

    end;

    writeln('Сумма нечетных 2-значных чисел(while)',s);

    readln;

    i:=10;s:=0;

   repeat

    if i mod 2<>0 then s:=s+i;

    i:=i+1;

   until i>99 ;

   writeln('Сумма нечетных 2-значных чисел(repeat)',s);

   readln;

end.