Решено
Pascal:
program help;
var i,n,q,j:integer;
a: array[1..10000] of integer;
begin
write('How much?: ');
readln(n);
for i:=1 to n do begin
readln(q);
a[i-1] := q
end;
for i:=1 to n do begin
if a[i] > a[i-1] then
j := j + 1
end;
if j = n-1 then
writeln(True)
else
writeln(False)
end.
========================
Python:
a = int(input("How much?: "))
s = []
j = 0
for i in range(0,a):
x = int(input(str(i+1) + 'e chislo - '))
s.append(x)
for i in range(1,len(s)):
if s[i] > s[i-1]:
j +=1
if j == len(s)-1:
print(True)
else:
print(False)
--------------------------------------------
Хочу отетить, что данную задачу можно было бы решить менее затратным кодом.