program termekek;
type termek=record
      megnevezes:string;
              db:word;
              ar:real;
     end;
var t:array[1..3] of termek;
    i:byte;
begin
     for i:=1 to 3 do
      with t[i] do
      begin
       write(i,'. termek neve: ');
       readln(megnevezes);
       write(i,'. termek   db: ');
       readln(db);
       write(i,'. termek   ar: ');
       readln(ar);
      end;
    for i:=1 to 3 do
    with t[i] do
    writeln('Az ',i,'. termek neve ',megnevezes:10,'   szama: ',db:5,' ara: ',ar:5:2,' erteke',db*ar:10:1);
    readln
end.