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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.