program ejercicio(input,output); uses crt; var area,vol,r,h:real; op:char; begin write('Ingrese radio: '); read(r); write('Ingrese altura: '); read(h); writeln(); writeln('Que desea calcular?'); writeln(); writeln('1.Area'); writeln('2.Volumen'); repeat op:=readkey; until(op='1')or(op='2'); writeln(); if op='1' then begin area:=2*3.14*r*h+2*3.14*r*r; writeln('Medida del area: ',area:1:2) end else begin vol:=3.14*r*r*h; writeln('Medida del volumen: ',vol:1:2); end; readkey; end.