1 lygis | 6 pamokėlė | 4. Automobilių lenktynės

var
    vidrat,
    min:
    real;
    win,
    i,
    r,
    n,      //Lenktynininku sk.
    sportininko_nr, //sporininko nr.
    ratu_kiekis,    //ratu skaicius
    degalu_isviso,  //viso degalu.
    rato_degalai:   //degalai ratui
    integer;
    F : text;

begin
    min := 1000;

    assign(F, 'Duomenys.txt');
    reset(F);
    readln(F, n);
    for i := 1 to n do
    begin
        read(F, sportininko_nr, ratu_kiekis);

        degalu_isviso := 0;
        for r := 1 to ratu_kiekis do
        begin
            read(F, rato_degalai);
            degalu_isviso := degalu_isviso + rato_degalai;
        end;

        vidrat := degalu_isviso/ratu_kiekis;

        if vidrat < min then
        begin
            win := sportininko_nr;
            min := vidrat;
        end;
    end;
    writeln('Mažiausiai degalų sunaudojo ', win, ' lenktynininkas');
    close(F);
    //Readln;
end.