Решите что сможите, не обязательно…

1) Program Pr1; uses crt; var mas: array[1… 10] of integer; i,a: integer; Beginclrscr; a: =0; for i: =1 to 10 do read (mas[i]); for i: =1 to 9 do if mas[i+1]>mas[i] then a: =a+1; if a=9 then writeln ('YES') else writeln ('NO'); end.