Вы посетили магазин и купили 10 видов товара.в таблицу t[1: 10] вы записали количество купленного товара каждого вида.в таблицу c[1: 10] записали цены единиц каждого вида товара соответственно.составьте алгоритм вычисления общей стоимости всех покупок. семестровая решается

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.