Object delphi, написать код пусть точки заданы последовательностью координат: x1,y1,x2,y2, …,xn, yn . c подпрограмм статической библиотеки (unit ) найти : а) точку с наибольшим значением функции; б) точку с наименьшим значением функции; в) поменять найденные точки местами.

Ch2=ch2 + h2o= c2h5oh n(c2h4)= 672/22,4= 30 (хотя мне кажется, что вы запятую забыли в объеме, шибко много) n(c2h4)= n(c2h5oh)= 30 m(теор с2н5он)= 30*46(m)= 1380 выход равен m(практическая)/ m(теоретическую) m(практ)= 0,93(выход)*1380= 1283,4г

program bapehbe;

var

    l, b, s : integer;

    o : real;

begin

    writeln (' skolko litrov varenya v tazy? ');

    readln (l);

    writeln (' kakaya emkost banok? ');

    readln (b);

    s: = l div b;

    o: = l mod b;

    writeln (' polnih banok_', s);

    writeln (' litrov ostaloc_', o: 2: 2);

    readln;

end. 

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65