Dim R As Single, p As Single, h As Single, V As Single
p = 3.1415926
R = InputBox("Введите радиус основания")
h = InputBox("Введите высоту цилинтра")
V = p * R ^ 2 * h
<span>MsgBox V</span>
Вы хоть пишите, как нужно это проверить....то ли это алгоритм проверки на каком либо языке, то ли еще что-то. Чем точнее вы задаете ответы, тем быстрее на них отвечают.
Var
x,a,d,z:int64;
begin
read(x,a,d);
z:=14*sqr(sqr(x))-5*sqr(a)+11*d-17;
writeln(z);
end.