Определить сколько цифр в числе

var s:string;
begin
     WriteLn('vvedi chislo:');
     ReadLn(s);
     WriteLn('chislo cifr=',length(s));
     ReadLn;
end;

var N,i:integer;
begin
write('N=');readln(N);
for i:=1 to N do
if (i mod 2=0)or(i mod 3=0)or(i mod 5=0) then write(i,' ');
readln
end.

var N,k:longint;
begin
write('N=');readln(N);
k:=0;
while N>0 do {пока число не ноль}
   begin
     N:=N div 10;{делим его на 10}
     k:=k+1;  {считаем цифры}
   end;
write('k=',k);
readln
end.

var N,K:longint;
function Cif5(x:longint):byte;{сделаем функцию для подсчета цифр 5 в числе, чтобы не писать два раза}
var p,m:byte;
begin
p:=0;
while x>0 do {пока число не ноль}
   begin
     m:=x mod 10;{отделяем последнюю цифру}
     if m=5 then  p:=p+1;{если 5, считаем}
     x:=x div 10;{делим число на 10}
   end;
Cif5:=p;
end;
begin
write('N=');readln(N);
write('K=');readln(K);
if Cif5(N)>Cif5(K)then writeln('V chisle ',N,' cifr 5 bolshe!')
else if Cif5(N)<Cif5(K)then writeln('V chisle ',K,' cifr 5 bolshe!')
else if Cif5(N)=Cif5(K)then writeln('V chislah ',N,' i ',K,' cifr 5 odinakogo!');
readln
end.