TINHTUOI PASCAL

var ns, nht, tuoi:longint;

begin
    assign(input,’tinhtuoi.inp’);reset(input);
    assign(output,’tinhtuoi.out’);rewrite(output);
    read(ns,nht);
    tuoi:=nht – ns;
    write('Tuoi cua ban la: ',tuoi);
end.