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

Var T:array[1..10] of integer;
C:array[1..10] of integer;
k,i:integer;
begin;
for i:=1 to 10 do
begin;
Writeln('Value of ',i,' product');
readln(T[i]);
Writeln('Price of ',i,' product');
readln(C[i]);
k:=k+C[i]*T[i];
end;
writeln('Result:',k);
end.