Program BTT;
Uses crt;
Var A: array[1..50] of longint;
n,i: 1..50;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
Begin
Randomize;
For i:=1 to n do
A[i]:=Random(101);
End;
Write('Mang vua tao: ');
For i:=1 to n do Write(A[i],' ');
Writeln;
Write('Cac gia tri thuoc khoang (10,70): ');
For i:=1 to n do
If (A[i]>=10) and (A[i]<=70) then Write(A[i],' ');
Readln
End.