có thể làm như sau:
var s,x,y:integer;
begin
assign(input,'vd.inp');reset(input);
assign(output,'vd.out');rewrite(output);
readln(x,y);
s:=x+y;
writeln('ket qua la',s:2);
end.
khi nhập xong bạn phải nhấp tổng hợp Ctrl+F9 để kiểm tra đúng sai đưa vạch nhấp nháy đến dòng chữ vd.inp và nhấp...