Đọc dữ liệu từ file input.inp dòng đầu là số lượng phần tử, các dòng sau là giá trị các phần tử .In ra màn hình giá trị vừa đọc được.
Vd
Input.inp
4
12
13
6
7
In ra màn hình 12,13,6,7
uses crt; var f:text; i,n,a:longint; begin clrscr; assign(f,'Input.inp');reset(f); readln(f,n); for i:=1 to n do begin readln(f,a); write(a,' '); end; close(f); readln; end.