Viết câu lệnh độc dữ liệu từ tệp van.dat cho các biến a,b,c,d

program doc_dl;

uses crt;

var f:text;

begin

        clrscr;

        Assign(f,’van.dat’);  reset(f);

        readln(f,a,b,c,d);

        writeln(‘a= ‘,a);

        writeln(‘b= ‘,b);

        writeln(‘c= ‘,c);

        writeln(‘d= ‘,d);

        readln;

end.