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.