//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
var
a, b, h: real;
begin
write('Введите стороны a, b и h через пробел: ');
readln(a, b, h);
writeln('S трапеции = ', (a + b) * h / 2)
end.
Решение на фотке.........................................
Мобильный телефон, планшет