Составьте программу вычисления обьема и площади полной поверхности цилиндра с радиусом основания 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.