program z1;
var a,b,c: real;
begin
write ('a = ');
readln(a);
write ('b = ');
readln(b);
write ('c = ');
readln(c);
writeln('V = ',a*b*c);
writeln('S = ',2*(a*b + a*c))
end.
Объяснение:
картинка
