Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
begin
var
a:array[1..n] of integer;
i,x:integer;
begin
//Задание №1
for i:=1 to n do begin
a[i]:=0;write(a[i]:3);
end;
writeln;
//Задание №2
for i:=1 to n do begin
a[i]:=i;write(a[i]:3);
end;
writeln;
//Задание №3
readln(x);
for i:=1 to n do begin
a[i]:=x+i-1;write(a[i]:3);
end;
end.