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