program masodfoku; var x,Ve,Va,re,ra:real; begin writeln('Kerem az elteres merteket!'); readln(x); re:=sqrt(30*3/(3.8*pi)); {eredeti sugar} ra:=(3.8-x)*re/3.8; {aktualis sugar} Va:=ra*ra*pi*(3.8-x)/3; {aktualis terfogat} Writeln(30-Va:8:2); readln; end.