Сколько раз первая цифра встречается в данном числе

var i,s,k,m:integer;
 
begin
   WriteLn('vvedi chislo i=');
   ReadLn(i);
   s:=i;
   k:=0;
    repeat
      i:=i div 10;
      k:=k+1;
    until i=0;
   m:=1;
    for i:=1 to k-1 do
      m:=m*10;
   m:=s div m;
   i:=0;
    repeat
        if m=s mod 10 then
          i:=i+1;
       s:=s div 10;
    until s=0;
   WriteLn('chislo pervix cifr=',i);
   ReadLn;
end.

var i,k,a,b,s,m:integer;
 
begin
   WriteLn('vvedi chislo i=',' a=',' b=');
   ReadLn(i,a,b);
   s:=i;
   k:=0;
    repeat
      i:=i div 10;
      k:=k+1;
    until i=0;
   m:=1;
     for i:=1 to k-1 do
       m:=m*10;
   if b=s mod 10 then
     if a=s div m then
      WriteLn('chislo nachin.a=',a,' chislo zakan.b=',b)
     else WriteLn('_nepravilno_')
   else
     WriteLn('_nepravilno_');
  ReadLn;
end.

Program xxx;
Uses Crt;
Var  x,a1,b1:string;
     a,b:string[1];
     k:integer;
Begin
     Clrscr;
     Write('Введите натуральное число = ');readln(x);
     Write('Введите начало = ');readln(a);
     Write('Введите окончание = ');readln(b);
     a1:= copy(x,1,1);
     Repeat
           delete(x,1,1);
            k:=length(x);
     Until k=1;
     b1:=x;
     If (a1=a) and (b1=b)
        then writeln('Совпадают!')
        else Writeln('Не совпадают!');
     readkey;
End.

Program xxx;
Uses Crt;
Var x,a,b:string;
Begin
Clrscr;
Write('x = ');readln(x);
Write('a = ');readln(a);
Write('b = ');readln(b);
If (a=x[1]) and (b=x[Length(x)])
then writeln('da')
else Writeln('net');
readkey;
End.

program Project2;
 
uses
  SysUtils;
var m,n:integer;
begin
   Write('vvedi m=');
   ReadLn(m);
   Write('vvedi n=');
   ReadLn(n);
     if m mod n=0 then
      WriteLn('poluchiloc=',m div n)
     else
      WriteLn(' ne delitsja !!!');
   ReadLn;
end.

program Project2;
 
var x:real;
begin
   Write('vvedi x=');
   ReadLn(m);
if x<0 then WriteLn('f(x)=',0);
if (x>0) and(x<=1) then WriteLn('f(x)=',x);
if x>1 then WriteLn('f(x)=',x*x*x*x);
   ReadLn;
end.