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

Const

Pi = 3.14;

var

r, h: integer;

s, v: real;

begin

write ('Введите r = ') ;

readln (r) ;

write ('Введите h = ') ;

readln (h) ;

S : = 2 * Pi * r * (h + r) ;

V : = Pi * sqr (r) * h;

writeln ('Площадь равна ', S) ;

writeln ('Объем равен ', V) ;

readln;

end.