program bevasarlas;
const ARUSZAM = 5;
type arucikk = record
        arunev: string[20];
        ar: integer;
     end;
var
  bevasarlokosar: array[1..ARUSZAM] of arucikk;
  szamlalo: integer;
begin
  Writeln('Bevasarlas.');
  Writeln('Kerem adja meg a megvasarlando arucikkeket!');
  for szamlalo:=1 to ARUSZAM do
  begin
    write('A(z) ',szamlalo,'. aru neve: '); readln(bevasarlokosar[szamlalo].arunev);
    write('Ara? '); readln(bevasarlokosar[szamlalo].ar);
  end;
  readln;
end.