dealvale.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program deal_vale;
var n:integer;
begin
write('n=');readln(n);
while (n>9) and (n mod 10 <=(n div 10)mod 10) do n:=n div 10;
while (n>0) and (n mod 10>= (n div 10) mod 10) do n:=n div 10;
if n=0 then write('nr e deal-vale')
       else write('nr nu e deal-vale');
end.