Algoritmo PresupuestoHospital
Definir presupuesto, bacteriologia, radiologia, neurologia,total Como Real;
presupuesto=21850700;
bacteriologia=presupuesto*0.22;
radiologia=presupuesto*0.18;
neurologia=presupuesto*0.26;
total=bacteriologia+radiologia+neurologia;
Escribir "";
Escribir "Bacteriología: $",bacteriologia;
Escribir "Radiología: $",radiologia;
Escribir "Neurología: $",neurologia;
Escribir "Total: $",total;
FinAlgoritmo