Question

đọc dữ liệu từ tệp songuyen.txt vào 2 biến a,b rồi hiển thị 2 số đó ra màn hình

Answer 1

uses crt;

const fi='songuyen.txt';

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('a=',a);

writeln('b=',b);

close(f1);

readln;

end.