Составьте программу на языке паскаль которая в зависимости…

program gg; var c: char; h,r: integer; beginwriteln ('vvedite visotu i radius'); readln (r,h); writeln ('vvedite c or s or w'); readln (c); case c of'c': writeln (2*pi*r); 's': writeln (pi*r*r); 'w': writeln (pi*r*r*h); end; end.