В Паскале написать программу

Program s;
uses crt;
var
V,R:real;
begin
writeln('Введите радиус: ');
read(R);
V:=(4/3)*pi*(sqr(R)*R);
writeln('Объем равен: ',V:2:2);
end.

program s;
uses crt;
var
x,y,z,x1,y1,z1,r:real;
begin
writeln('Введите цену сахара: ');
read(x);
writeln('Количество купленного сахара (кг): ');
read(x1);
writeln('Введите цену муки: ');
read(y);
writeln('Количество купленной муки: ');
read(y1);
writeln('Введиет цену риса: ');
read(z);
writeln('Количество купленного риса: ');
read(z1);
r:=(x*x1)+(y*y1)+(z*z1);
writeln('Стоимость покупки ',r);
end.

Епрст, если это все условия тогда для решения я добавлю свои ибо этого недостаточно. начнем с того что определим сколько нам понадобится бит для того чтобы каждый учасник марафона был индивидуально закреплен 5бит будет мало ибо два в пятой это 32, значит нам нужно 6 бит, но, какого черта нам дано условие про 29 финишировавших, вот ли нам не по барабану сколько пришло, пришел 1 человек я трачу 6 бит, пришло 2 я трачу 6 бит, пришли хоть все я трачу 6 бит, не понимаю, неужели у нас требуется перемножить 6 на 29??? если да то система образования меня пугает, а если нет то значит какая то глупая уловка с излишней информацией, вобщем лично я считаю что для этого нужно 6 бит и ни битом больше