Кількість іграшок

Задано кількість видів іграшок в магазині, кількість іграшок кожного виду та вартість іграшки кожного виду. Визначити кількість іграшок, вартість яких менша за 50 грн.

Вхідні дані

У першому рядку задано кількість наявних у прейскуранті видів іграшок n (0 ≤ n ≤ 1000). У наступних n рядках задано по 2 числа через пропуск: спочатку кількість іграшок a (0 ≤ a ≤ 1000) чергового виду та їх ціна b (0 < b ≤ 10000) в грн.

Вихідні дані

Вивести кількість іграшок, вартість яких менша за 50 грн.

Вхідні дані

3

2 100.00

5 23.00

10 22.50

Вихідні дані

15

program kilkist;

var n,i : word;

a : integer;

b : real;

k : longint;

BEGIN

readln (n);

k:=0;

for i:=1 to n do begin

readln (a,b);

if b<50 then k:=k+a;

end;

writeln(k);

END.