Welcome stranger

pascal funkce.txt

var
	r, l, v:real;
	function objem_valce(r,l,real):real;
	begin
		Exit(pi * r * r * l);
	end;

begin
	writeln('Zadej r');
	readln(r);
	writeln('Zadej l');
	readln(l);
	v := objem_valce(r,l);
	writeln(v);
	
    readln;
end.