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

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