uses CRT;
VAR
src, A, B, k: Longint;
nums: array[0..9] of Integer;
even_count: Integer;
isA, isB: Boolean;
ch: Char;
BEGIN
repeat
Write('Введите исходное целое число: ');
{$I-} ReadLn(src); {$I+}
k := IOResult;
if k <> 0 then WriteLn(' Ошибка ввода! Попробуйте еще раз')
until k = 0;
k:=src; {save}
repeat
inc(nums[k mod 10]);
k := k div 10;
until k = 0;
for k:=0 to 9 do if nums[k] <> 0 then WriteLn(k:2,' ',nums[k]);
even_count := 0; {число четных}
for k := 0 to 9 do
if NOT odd(k) then inc(even_count, nums[k]);
WriteLn('В числе ',src,' количество четных цифр = ',A);
Write('Введите число A: ');
repeat
ch := ReadKey;
until ch in ['0' ..'9'];
WriteLn(ch);
VAL(ch, A, even_count);
Write('Введите число B: ');
repeat
ch := ReadKey;
until ch in ['0' ..'9'];
WriteLn(ch);
VAL(ch, B, even_count);
isA := nums[A] <> 0;
isB := nums[B] <> 0;
WriteLn('Насчет A: ',isA,', насчет B: ',isB);
END.