Có N hồ nước được đánh số 1, 2, 3, …, N. Lượng nước trong hồ thứ i là ai, mỗi
ngày hồ thứ i bốc hơi một lượng nước là bi (i = 1, 2, …, N).
Yêu cầu: Xác định tổng lượng nước của các hồ sau t ngày.
Input: Tệp LAKE.INP có cấu trúc như sau:
- Dòng đầu tiên ghi hai số nguyên dương N và t (N 105, t 103).
- N dòng tiếp theo mỗi dòng gồm cặp số ai và bi (1 ai, bi 109) là lượng nước
trong hồ và lượng nước bốc hơi của hồ thứ i.
Hai số liên tiếp trên một dòng ghi cách nhau bởi dấu cách.
Output: Tệp LAKE.OUT gồm một số nguyên duy nhất là tổng lượng nước còn
lại của các hồ sau t ngày
program lake;
uses crt;
var n,t,i:integer;
s,a,b:longint;
begin
clrscr;
readln(n,t);
s:=0;
for i:=1 to n do begin
readln(a,b);
s:=s+a-b*t;
end;
write(s);
readln
end.
