Program z1;
Var i,stoit,n:Integer;
    naz:string;
    i1:char;
Begin
  Write('Введите кол-во товаров: ');
  Read(n);
  For i:=1 to n do
  Begin
   WriteLn('Введите информацию об ',i,' товаре');
   Write('Название товара: ');
   ReadLn(naz);
   Write('Стоимость товара: ');
   Read(stoit);
  end;
  WriteLn('Итог');
  For i1:='а' to 'я' do
   For i:=0 to 9 do
   WriteLn('Товар: ',naz);
   WriteLn('Стоимость: ', stoit);
   WriteLn;
ReadLn;
End.