program z328; uses crt; var r,h,s:real; BEGIN clrscr; writeln('vvesti radius'); readln(r); writeln('vvesti vysotu'); readln(h); s:= 2*pi*r*h+2*pi*sqr(r); writeln('s=',s); readln; END.