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

Константа pi в Паскале является предопределенной ))

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.