Сложить список с N найменований товаров. Установить цену и количество каждого товара. Для составления входных данных написать программу ввода входной информаций используя массивы. Посчитать стоимость товара и суммарную стоимость всех товаров. Результат вывести в виде такблицы.
***********************************************
* # * Название * цена * Кол-ство* Cуммарная*
*п/п* товаров * руб.* * стоимость *
В этой задачи не получаеться найти суммарное количество товаров.
Код
program
tab(input,output);
const n=5;
var
mastov:array[1 ..12] of packed array [1..15] of char;
cena: array[1..n] of real;
kol: array[1..n] of integer;
x: array[1..n] of integer;
sum: real;
i,j,k: integer;
begin
writeln ('Vvedite nazv tovarov');
For i:=1 to n do
For j:=1 to 15 do
Read (mastov [i,j]);
readln;
writeln ('Vvedite cinu');
for i:=1 to n do
read (cina [i]);
writeln('Vvedite kolich tovarov');
for i:=1 to n do
read (kil [i]);
begin
sum:=0;
for k:=1 to 12 do
begin
sum:=sum+cena[i]*kol[i];
end;
x[i]:=sum;
end;
for i:=1 to 26 do write('*');
writeln;
writeln ('* n * Nazv * Cena * Kol-stvo* Suma* ');
writeln ('*n/n* Tovarov* Rub * * * ');
for i:=1 to 26 do write('*');
writeln;
for i:=1 to n do
writeln ('*',I:2,' * ',mastov[i],' *',cena[i]:6:2,' *',kol[i],' *',x[i],' *');
for i:=1 to 26 do write('*');
end.
Где ошибка ?