Question

помогите срочно.нужно до завтра

Answer 1

uses math;
var r, h, V, S, L: real;

begin
r := 5.2; h := 11;

V := (1/3) * Pi * power(R, 2) * h;
L := sqrt(power(h, 2) + power(r, 2));
S := Pi * r * (r + L);

writeln('V: ', V, ' cm');
writeln('S: ', S, ' cm');
end.

Answer 2

Забыл упомянуть... Компилировал на FPC 3.0.0