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

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.