Задача на паскале, срочно нужно.

Question

Вводится натуральное число N. Требуется определить, является ли последовательность цифр от младшего 
разряда к старшему убывающей.

нужно без true/false/boolean/break, еще не проходили по школьной программе.

Евгения · Accepted Answer

как можно не проходить хотя бы boolean и его значения? 
 
var n,l:integer; 
begin 
read(n); 
l:=10; 
while (n>0) and (l>(n mod 10)) do 
begin 
l:= n mod 10; 
n:=n div 10; 
end; 
if n = 0 then writeln'yes') else writeln('no'); 
end.

Виталик Правда · Answer

read(k); 
a:=k; 
while k <> 0 do 
begin 
 read(k); 
if k > a then a:=k; 
else begin 
write('no'); 
break; 
end; 
end;

Александр Кошевой · Answer

read(n); 
b:=true; 
a:=n mod 10; 
while n>0 do begin 
if a< n mod 10 then b:=false; 
a:=n mod 10; 
n:=n div 10; 
end; 
if b then write('yes') else write('no');