скильки гетьманив було в украини хто вони

Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию.

1. Вариант современного решения
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Число четных цифр равно ',
    abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count)
end.

Пример
n= 363754345
Число четных цифр равно 3

2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.

program TP70;
uses Crt;
var
  n:longint;
  k,d:byte;
begin
  ClrScr;
  Write('n= '); Read(n);
  n:=abs(n);
  k:=0;
  while n>0 do begin
    d:=n mod 10;
    if d mod 2=0 then Inc(k);
    n:=n div 10
    end;
  Writeln('Число четных цифр равно ',k);
  ReadKey;
end.