{$codepage UTF8} VAR PA,PB,PC : Char; PrecioA,PrecioB,PrecioC,Desc,Total:Single; a,b,c,n : byte; BEGIN Write('Producto A :');Readln(PA); Write('Producto B :');Readln(PB); Write('Producto C :');Readln(PC); a:=0;b:=0;c:=0;Desc:=0; PrecioA:=0;PrecioB:=0;PrecioC:=0; if PA='S' then Begin a:=%100;PrecioA:=200 End; if PB='S' then Begin b:=%010;PrecioB:=300 End; if PC='S' then Begin c:=%001;PrecioC:=400 End; n:=a or b or c; Case n of 0 : Desc:=0.00; 1 : Desc:=0.01; 2 : Desc:=0.02; 3 : Desc:=0.03; 4 : Desc:=0.04; 5 : Desc:=0.05; 6 : Desc:=0.06; 7 : Desc:=0.07 End; Total:=PrecioA+PrecioB+PrecioC; Writeln('SubTotal ',Total:10:3); Writeln('Descuento ',Total*Desc:10:3); Total:=Total-(Total*Desc); Writeln('Total ',Total:10:3) END.