var a:array[1..1000] of integer;
i, n, z:integer;
begin 
z:=0;
writeln ('введите n');
readln (n);
writeln ('введите n чисел через пробел');
for i:=1 to n do read (a[i]);
for i:=2 to n do
If a[i]<=a[i-1] then inc(z);
If z=0 then writeln ('Yes')
else writeln ('No');
end.