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

Вычислить площадь полной поверхности и объем прямого кругового цилиндра, заданного высотой и диаметромоснования. Мое решение Код Pascal1234567891011121314 program qwe; uses crt; var h,r: integer; S,V: real; beginclrscr; 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.