ИНФОРМАТИКА 25 б дано натуральное число n. составить алгоритм нахождения суммы четных цифр в записи данного числа на Делфи
var
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
if (n mod 10) mod 2 = 0 then
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
Стопппп
Что то не так?