3. Viết chương trình nhập thông tin của một học sinh gồm họ tên, quê quán, lớp và lưu vào tệp hocsinh.txt. 4. Viết chương trình hiển thị thông tin đã nhập ở bài 3.

Const Fo='HOCSINH.TXT';
Var g: text;
    hoten,quequan,lop: String;
Begin
        Assign(g,Fo); Rewrite(g);
        Write('Nhap ho va ten: '); Readln(hoten);
        Write('Nhap que quan: '); Readln(quequan);
        Write('Nhap lop: '); Readln(lop);

        Writeln(g,'Ho va ten: ',hoten);
        Writeln(g,'Que quan: ',quequan);
        Write(g,'Lop: ',lop);

        Close(g);
End.

uses crt;
var f:text;
    a1,a2,a3:string;
begin
clrscr;
    assign(f,'hocsinh.txt');rewrite(f);
        readln(a1);
        readln(a2);
        readln(a3);
        write(f,a1,' | ',a2,' | ',a3);
    close(f);
readln;
end.