Задачи в Паскале (while, repeat).

[Mat_t]

Здравствуйте!
Добрые люди, помогите, пожалуйста, с решением задач в Паскале
Обе задачи на тему "циклы while и repeat":
5) Дано натуральное число. Найти количество четных цифр числа. Верно ли, что данная цифра А встречается в числе боллее 2-х раз? (число А с клавиатуры).
18) В записи числа N заменить все "двойки" на "тройки". (N- с клавиатуры). Вывести на печать общие делители исходного и полученного чисел.
Заранее спасибо.

[Stilet]

Дано натуральное число. Найти количество четных цифр числа.

var i,cnt,a:integer; Verno:integer;
begin
 i:=256;cnt:=0;a:=5;Verno:=0;
 while i<>0 do begin
  if ((i mod 10) mod 2)=0 then inc(cnt);
  if  ((i mod 10)=a) then inc(Verno);
  i:=i div 10;
 end;
 if verno>2 then writeln('Верно'); write(i);readln;

 i:=256;cnt:=0;Verno:=0;
 repeat
  if ((i mod 10) mod 2)=0 then inc(cnt);
  if  ((i mod 10)=a) then inc(Verno);
  i:=i div 10;
 until i=0;
 if verno>2 then writeln('Верно'); write(i);readln;

end.

Идея понятна?

[Mat_t]

Непонятна вот эта строчка:
i:=256;cnt:=0;a:=5;Verno:=0;
Откуда присвойка "i" и "а"?
В остальное более менее вник, спасибо.