Question

Mở tệp baitap.pas cho bốn số a,b,c,d , đọc tính hiệu bốn số đó và in ra màn hình.

Answer 1

uses crt;

const fi='baitap.pas';

var f1:text;

a,b,c,d,h:integer;

begin

clrscr;

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

readln(f1,a,b,c,d);

h:=a-b-c-d;

writeln(h);

close(f1);

readln;

end.