viết chương trình ghi 2 số 5 15 vào tệp so.txt, sau đó đọc tệp so.txt gán giá trị vào 2 biến x,y. Tính tổng hiệu tích thương của x,y rồi in kq ra màn hình.

uses crt;
var f:text;
    x,y:byte;
BEGIN
        clrscr;
        assign(f,'so.txt');
        rewrite(f);
        write(f,5,' ',15);
        close(f);
        reset(f);
        read(f,x,y);
        close(f);
        writeln('Tong=',x+y);
        writeln('Hieu=',x-y);
        writeln('Tich=',x*x);
        write('Thuong=',x/y:0:3);
        readln
END.

Cho mik ctlhn nha.

program bai_giai;

uses crt;
var f:text;
    x,y:integer;
begin
    clrscr;
    Assign(f,'so.txt');  rewrite(f);
    write(f,5,' ',15);
    close(f);            reset(f);
    readln(f,x,y);
    writeln('Tong: ',x+y);
    writeln('Hieu: ',x-y);
    writeln('Tich: ',x*y);
    writeln('Thuong: ',x/y:0:2);
    readln;
    close(f);
end.