{$codepage UTF8} VAR num01,num02 : Double; resultado : Double; operacion : byte; BEGIN Write('num01 : '); Readln(num01); Write('num02 : '); Readln(num02); Write('operacion : '); Readln(operacion); Case operacion of 1 : Begin resultado:=num01+num02; Writeln('resultado = ',resultado:10:3) End; 2 : Begin resultado:=num01-num02; Writeln('resultado = ',resultado:10:3) End; 3 : Begin resultado:=num01*num02; Writeln('resultado = ',resultado:10:3) End; 4 : Begin resultado:=num01/num02; Writeln('resultado = ',resultado:10:3) End else Writeln('No hay resultado, ingrese una operacion') End; //Fin de la estructura case. Readln END.