var
stoim:array[1..10] of integer;
kol:array[1..10] of integer;
nai:array[1..10] of string;
i,bufs,j,bufk:integer;
bufc:string;
begin
for i:=1 to 10 do
begin
Writeln('Tovar #',i);
write('Nomenklatura: ');
readln(nai[i]);
write('Cena: ');
readln(stoim[i]);
write('Kol-vo: ');
readln(kol[i]);
end;
for j:=1 to 10 do
for i:=1 to 9 do
begin
if (kol[i]*stoim[i]) < (kol[i+1]*stoim[i+1]) then
begin
bufk:=kol[i];
kol[i]:=kol[i+1];
kol[i+1]:=bufk;
bufs:=stoim[i];
stoim[i]:=stoim[i+1];
stoim[i+1]:=bufs;
bufc:=nai[i];
nai[i]:=nai[i+1];
nai[i+1]:=bufc;
end;
end;
writeln('max:');
write(nai[1]);
write(' ',kol[1]);
write(' ',stoim[1]);
end.

if (kol[i]*stoim[i]) < (kol[i+1]*stoim[i+1]) then

if stoim[i] < stoim[i+1] then