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

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('ob`iem = ',v:2:0);
end.