Написать программу в Pascal

Program Mas; Var A: array [1… 240] of integer; I,x: integer; BeginFor I: =1 to 240 doA[I]: =Random (1000); For I: =1 to 240 doIf A[I]>x Then x: =A[I]; WriteLn (',x); End. Random (1000) — это интервалто есть у вас будут задаваться числа от 0 до 999 можете сами задать интревал, который вам нужен