Автор - Kseni4han
const n = 10;
var
T: array [1..n] of integer;
C: array [1..n] of real;
i: integer;
sum: real;
begin
sum := 0;
for i := 1 to n do
begin
readln(T[i], C[i]);
sum := sum + T[i] * C[i];
end;
writeln;
writeln('sum = ',sum);
end.