Дано целое число n (> 1) и набор из n вещественных чисел. проверить, образует ли данный набор возрастающую последовательность. если образует, то вывести true, если нет — вывести false. подробное решение,) и не с инета)

Var n,i: integer; a,b: real; l: boolean; begin write('n='); readln(n); l: =true; write('a='); readln(a); for i: =2 to n do   begin   write('a='); readln(b);   if b< a then l: =false;   a: =b;   end; writeln(l); end.пример: n=5a=2a=4a=5a=7a=9true

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.