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

Var
  i:integer;
  s:real;
  t,c:array[1..10]of real;
begin
writeln('Введите количество купленного товара и его цену:');
for i:=1 to 10 do
  begin
  readln(t[i],c[i]);
  s:=s+t[i]*c[i];
  end;
writeln('Общая стоимость: ',s);
end.