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

Вычислить площадь полной поверхности и объем прямого радиального цилиндра, заданного вышиной и диаметром основания.

моё решение
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14 program qwe;
uses crt;
var h,r:integer;
S,V:real;
begin
clrscr;
h:=10;
r:=5;
S:=2*pi*r*h ;
writeln('ploshad = ',s:2:0);
V:=pi*sqr(r)*h;
writeln('obiem = ',v:2:0);
end.

верно ли мое решение?