---

var Kol, Cen: array[1..50] of integer;
  n, Sum: integer;
begin
  write('Введите количество видов товаров ');
  readln(n);
  for var i := 1 to n do
  begin
    writeln('Введите количество товара ', i, ' и его цену ');
    read(Kol[i], Cen[i]);
  end;
  Sum := 0;
  for var i := 1 to n do
    Sum := Sum + Kol[i] * Cen[i];
  writeln('Суммарная стоимость товаров = ', Sum);
end.