Bài tập cơ bản - không biết phải không nữa!!!

Thầy Quan có bài cho các member và Mod IT đây!
Xuất – nhập dữ liệu trong Pascal
================================
Write(x1,x2,…,xn);  Viết các giá trị các biến x1,x2,…,xn ra màn hình.
Writeln(x1,x2,…,xn);  Viết các giá trị các biến x1,x2,…,xn ra màn hình và viết xong có xuống dòng.
Write;  Xuống dòng.
Write(I:n);  Viết giá trị x nguyên vào n chỗ tính từ bên trái màn hình, nếu thừa sẽ để trống.
Write(R:n:m);  Viết giá trị x thực vào n chỗ, m chữ số thập phân tính từ bên trái màn hình, nếu thừa sẽ để trống.
================================
Khai báo Var F: Text
Assign(F, tên_file);  Mở 1 file F trên đĩa có tên là “tên_file” để chuẩn bị viết.
Rewrite(F);  Chuẩn bị viết vào file F.
Write(F,x1,x2,..,xn);  Viết các giá trị của các biến x1,x2,…,xn vào file F.
Close(F);  Đóng file F (Viết xong phải đóng lại).
================================
Yêu cầu:
Viết chương trình xuất ra n chữ số tự nhiên dương chẵn đầu tiên bằng 2 cách:
1. Xuất ra màn hình n chữ số theo người nhập.
2. Xuất ra file chan.out với file nhap.inp xử lý cùng 1 thư mục.
Có thể làm bằng nhiều cách để so sánh thuật giải càng tốt (xem thời gian chạy chương trình là ưu tiên).
================================
Các member gởi bài giải nhanh nhất có thể. Các mod IT phải có bài giải sau đúng 5 ngày.
Ưu tiên chấm điểm bài gởi của member trước các mod IT (ITer, giaruarua, babychip_pro, MT_INH,…)
Phụ trách chấm điểm, phân tích bài làm: Trợ lý Admin (TMK)
Cố vấn: Admin (thầy Châu), Mr Bean (thầy Quan)