Дано натуральное число. определить сколько раз в нем встречаются цифры 0 и 5 (всего).

Вариант первый:

Var
   A:longint;
   n,p:integer;
   B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
   Begin
   B:=A mod 10;
   if B = 0 then n:=n+1;
   if B = 5 then p:=p+1;
   A:=A div 10;
   End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

Вариант второй:

Var
   A:string;
   n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
    if A[i] = '0' then n:=n+1
       else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.