Lập chương trình tính s= |a|+|b|/x với a,b,x là số nguyên lấy từ tệp SN.Dat kết quả S ghi vào tệp SM.out

var f1, f2: text;

      s: real;

      a, b, x: longint;

Begin

    Assign(f1, ‘sn.dat’); reset(f1);

    Assign(f2, ‘sm.out’); rewrite(f2);

    Read(f, a, b, x);

    S:= abs(a) + abs(b)/x;

    Write(f2, s);

    Close(f1); close(f2);

End.