А2=12
В2=4
С2=4
Соответственно D2 тоже должно быть равно 4 (по диаграмме)
То есть B2=8 (4*2=8)
V=4/3*pi*r^3;
pi=acos(-1) вроде
а вообще
var
переменные
begin
assign....
assign...
read(r);
writeln(pi*4/3*r*r*r);
end.
а фото тебе просто формулу нужно в паскаль загнать
только что такое In я не знаю, я 7 класс)))
program test;
var a, b: integer;
begin
write('Enter A: ');
readln(a);
write('Enter B: ');
readln(b);
writeln('Area = ', a*b);
readln;
end.