Вы посетили магазин и купили 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.