Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.
Если я не ошибаюсь "end" здесь вообще не нужно)
записывай в А1 А2 А3 и тд. комплектующие а после этого например если ты закончила записывать на А8 то под А8 тоесть в а9 пиши формулу А1 А2 и тд. между ними + и все.
Думаю, тебе не сложно будет руками это переписать