Программисты, нужна ваша Напишите программы на pascal. Умоляю. Хотя бы одну задачу

program podriad_idu_na_0;

var

n, x, k, k2:integer;

f:boolean;

begin

read(x);

f:=false;

repeat

if (f=false) and (x mod 10=0) then

begin

f:=true;

k:=k+1;

end

else

if (x mod 10=0) then

k:=k+1

else

begin

if k>k2 then

k2:=k;

k:=0;

f:=false;

end;

read(x);

until x=0;

write(k2);

readln;

end.

program proverka_na_ubivanie;

var

x,t:integer;

begin

read(x);

t:=x mod 10;

x:=x div 10;

while (x > 0) and ( t<x mod 10) do

x:=x div 10;

if x=0 then

write('Да')

else

write('Нет')

end.

program chisla_princip_piki_jami;

var

x,p:integer;

f:boolean;

begin

read(x);

f:=false;

if x>10 then

begin

if (x mod 10)>(x div 10 mod 10) then

p:=1

else

if (x mod 10)<(x div 10 mod 10) then

p:=0

else f:=true;

x:=x div 10;

while (x>10)and(f=false)

do

begin

if ((x mod 10)>(x div 10 mod 10) )and(p=0)then

p:=1

else

if ((x mod 10)<(x div 10 mod 10) )and(p=1)then

p:=0

else f:=true;

x:=x mod 10;

end;

if f=true then write('Нет')

else write('Да')

end

else

write('Слишком маленькое число')

end.