4. Пользователь вводит количество элементов массива, массив заполняется случайными целыми числами, после чего выводятся те из них, что больше 50

Program n1;

type mas = array of Integer;

var imas: mas;

n, i: integer;

begin

randomize;

writeln ('введите длинну массива: ') ;

readln (n) ;

SetLength (imas, n) ;

for i:=0 to n do imas[i]:=random (100) ;

for i:=0 to n do if (imas[i]>50) then writeln (imas[i]) ;

end.