Дано 3-х значное число. определить образуют ли цифры последовательность.

Var   n, m, d: integer; begin   write('введите трехзначное число: ');   readln(n);   if (n < 100) or (n > 999) then       writeln('у вас странное представление о трехзначных числах! ')   else begin       d : = n div 100; {старшая}       n : = n mod 100;       m : = n div 10; {средняя}       n : = n mod 10; {младшая}       if (m > d) and (n > m) then           writeln('цифры следуют в возрастающей последовательности')       else if (m < d) and (n < m) then           writeln('цифры следуют в убывающей последовательности')       else writeln('цифры не образуют монотонную последовательность')   end end. тестовое решение: введите трехзначное число: 159 цифры следуют в возрастающей последовательности

Ну я набросал на паскале : program z;   var n,i,imax,s,p: integer; masiv: array of integer; begins: =0; p: =1; writeln('кол-вол значений масива'); read(n); setlength(masiv,n);   for i: =0 to n-1 do read(masiv[i]);   for i: =0 to n-1 do    begin      if i mod 2 = 0 then        if masiv[i]< imax then imax: =masiv[i];     end;   writeln();   write(imax,' ');   for i: =0 to n-1 do write(masiv[i],' ')end.

Вот , правда с выводом проблемы , т.к. в текстовом документе последняя строка пустая т.е. = 0 и самое маленькое значение равно всегда 0. вот код думаю допилишь сам program z;   var imin,i: integer; inf,outf: text; beginimin: =0; assign(inf,'in.txt'); reset(inf);   while not eof(inf) do      begin      readln(inf,i);         if i< imin then imin: =i;     end; close(inf); assign(outf,'out.txt'); rewrite(outf); writeln(outf,imin); close(outf); end.