небольшие задачки

program sd;
uses crt;
var a:integer;
n,k:integer;
Begin
n:=0;
write('a= ');readln(a);
While a<>0 do
begin
k:=a mod 10;
if k=0 then inc(n);
a:=a div 10;
End;
writeln('kolvo=',n);
 
End.

program sd;
uses crt;
var a:integer;
n,k,l:integer;
Begin
n:=0;
write('a= ');readln(a);
l:=a mod 10;//последняя цифра
While a<>0 do
begin
k:=a mod 10;
if k=l then inc(n);
a:=a div 10;
End;
if n=5 then writeln('Все одинаковы') //только для 5 значных чисел, как в условии
else
writeln('Разные');
 
End.

program petr1;
uses crt;
var a, b, c, r:integer;
begin
clrscr;
Repeat
clrscr;
writeln('Введите своё число¸ ');
readln(r);
a:=r div 100;
writeln(a);
b:=(r div 10) mod 10;
writeln(b);
c:=r mod 10;
writeln(c);
until (r>=100) and(r<=999);
If (c>b)and(c>a) then
begin
writeln('',c,' максимальное');
end;
If (a>c) and(a>b) then
begin
writeln('',a,' максимальное');
end;
If (b>a)and(b>c) then
begin
writeln('',b,' максимальное');
end;
readln;end.

program sd;
uses crt;
var a,k,max:integer;
Begin
write('a= ');readln(a);
max:=a mod 10;//ïóñòü ìàêñèìàëüíàÿ öèôðà ïîñëåäíÿÿ
 
While a<>0 do
begin
k:=a mod 10;
if k>max then max:=k;
a:=a div 10;
End;
writeln('max=',max);
End.