составьте программу вычисления обьема и площади полной поверхности цилиндра с радиусом основания R, высотой H

Вопрос школьника по предмету Информатика

составьте программу вычисления обьема и площади полной поверхности цилиндра с радиусом основания R, высотой H

Ответ учителя по предмету Информатика

program xx;

var  R,H,S,V : real;

begin

Writeln(‘Введите значение радиуса основания цилиндра: ‘);

Readln(R);

Writeln(‘Введите значение высоты цилиндра: ‘);

Readln(H);

V:=pi*R*R*H;

S:=2*pi*R*(H+R);

Writeln(‘Объём цилиндра: ‘,V);

Writeln(‘Площадь поверхности цилиндра: ‘,S);

end.