program p27;
uses Crt;

var pocet,i,dny,kilometry,cena,nejlepsi:longint;
         den:array[1..1000] of integer;
         km:array[1..1000] of integer;
begin
clrscr;
write('Kolik je pujcoven ? ');read(pocet);
for i:=1 to pocet do
begin
  write('Cena na jeden den v pujcovne c.',i,' : ');readln(den[i]);
  write('Cena za jeden km v pujcovne c.',i,' : ');readln(km[i]);
end;
  write('Kolik kilometru celkem ujedete ? ');readln(kilometry);
  write('Kolik dnu celkem pojedete ? ');readln(dny);
  cena:=den[1]*dny+km[1]*kilometry;nejlepsi:=1;
for i:=2 to pocet do
if cena>den[i]*dny+km[i]*kilometry then
  begin
  cena:=den[i]*dny+km[i]*kilometry;
  nejlepsi:=i;
  end;
writeln('Nejvyhodnejsi je pujcovna c.',nejlepsi,' - celkem ',cena,' Kc.');
repeat until keypressed;
end.