Оператор цикла for

uses crt;
var m,x:integer;
begin
repeat
clrscr;
writeln('число');
readln(m);until m>0;
while m>0 do
begin
x:=x+1;
m:=m div 10;end;
write('кол-во цифр',x);
end.

uses crt;
var m,x,i:integer;
begin
repeat
clrscr;
writeln('число');
readln(m);until m>0;
for i:=1 to 100 do
if m>0 then begin
x:=x+1;
m:=m div 10;end;
write('кол-во цифр ',x);
end.

uses crt;
var x,m,i,k:integer;s1,s2:string;
begin
repeat
clrscr;
writeln('введите m и x');
readln(m,x);
until (x>=0)and(x<=9);{Так как цифра}
str(m,s1);
str(x,s2);
for i:=1 to length(s1) do
if s1[i]=s2[1] then k:=k+1;
write(x,' встречается в числе ',m,' ',k,' раз');
end.

var
 m:longint;
 p,x:byte;
 begin
  write('vvedite celoe polojitelnoe chislo:');
  readln(m);
  write('vvedite cifru:');
  readln(x);
  p:=0;
  repeat
   if (m mod 10)=x then inc(p);
   m:=m div 10;
  until m=0;
  writeln (' cifra ',x,' vstrechaetsa ',p,' raz');
end.

uses crt;
var m,x,k,i,n,l:integer;
begin
repeat
clrscr;
writeln('Введите положительное число m');
readln(m);
until m>0;l:=m;
while m>0 do
begin
n:=n+1;
m:=m div 10;
end;
writeln('цифра x');
readln(x);m:=l;
for i:=1 to n do
begin
l:=m mod 10;
if l=x then k:=k+1;
m:=m div 10;
end;
writeln('цифр ',x,'  в числе встретилось ',k);
end.

program Dekio;
var
st: string;
x: char;
i, cnt: integer;
begin
readln(st);
readln(x);
for i:=1 to length(st) do
if st[i]=x then
inc(cnt);
writeln(cnt);
end.

Uses
 CRT;
Var
 x,m,i,kol:longint;
begin
 write('Ââåäèòå ÷èñëî: ');
 readln(m);
 write('Ââåäèòå öèôðó: ');
 readln(x);
 kol:=0;
 for i:=1 to 11 do
 begin
  if m mod 10=x then inc(kol);
  if m=0 then break;
  m:=m div 10;
 end;
 if x=0 then kol:=kol-1;
 writeln(' ÷èñëå m öèôð ',x,':=',kol);
 readln
end.

var n,count:integer;
begin
read(n);
count:=0;
while n<>0 do begin
count:=count+1;
n:=n div 10;
end;
writeln(count);
end.