program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tovar=record
  name:string[20];
  cena:integer;
  kolvo:array[1..5] of integer;
end;

ft = file of tovar;

var f:ft;
    f1:text;

procedure input(var f:ft);
var a:tovar;
    i,n:integer;
begin
  rewrite(f);
  writeln('Vvedite kolvo tovara:');
  readln(n);
  for i := 1 to n do
    begin
      writeln('======',i,'===TOVAR=======');
      write('Enter name:');
      readln(a.name);
      write('Vvedite cenu:');
      readln(a.cena);
      write('Vvedite kolvo tovara v 1 magazine:');
      readln(a.kolvo[1]);
      write('Vvedite kolvo tovara v 2 magazine:');
      readln(a.kolvo[2]);
      write('Vvedite kolvo tovara v 3 magazine:');
      readln(a.kolvo[3]);
      write('Vvedite kolvo tovara v 4 magazine:');
      readln(a.kolvo[4]);
      write('Vvedite kolvo tovara v 5 magazine:');
      readln(a.kolvo[5]);
      writeln;
      write(f,a);
    end;
  closefile(f);
end;