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

Question

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

---

Answer 1

Uses math;
varr, 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.

Comments

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