program ban_ghi;

uses dos;

type

cnv=record

ht:string[30];

ns:integer;

lg:longint;

end;

var

tv:array[1..100]of cnv;

i,n:integer;

begin

writeln('nhap va in ra danh sach cong nhan vien');

write('nhap so nhan vien n= ');readln(n);

writeln('nhap thong tin ca nhan');

for i:=1 to n do

begin

write('ho va ten : ');readln(tv[i].ht);

write('nam sinh : ');readln(tv[i].ns);

write('luong thang: ');readln(tv[i].lg);

end;

for i:=1 to n do

writeln(i,tv[i].ht,tv[i].ns:20,tv[i].lg:30);

readln;

end.