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.