СРОЧНО!!!!!!!!!!
Написать программу в Паскаль
1) Дано n число, верно ли, что сумма его цифр четное число
2) Найдите сумму его цифр больше 5

СРОЧНО!!!!!!!!!

Первая var n,a:integer;begin a:=0; WriteLn(n); while n>0 do begin a:=a + (n mod 10); n:=n div 10; end;end.Втораяvar n,a:integer;begin a:=0; WriteLn(n); while n>0 do begin if n mod 10>5 then begin a:=a + (n mod 10); end; n:=n div 10; end;end.