Ejercicio 5(Inicio)

PROGRAM calculador_de_sueldo_mensual(input,output);

(*Programa que pida nombre,edad,número de hijos y sueldo anual,la salida tiene que indicar su sueldo mensual *)

VAR
nombre:string(15);
edad:integer;
numero_hijos:integer;
sueldoanual:real;
sueldofinal:real;

BEGIN
write('Nombre:');
    readln(nombre);
    write('Edad:');
readln(edad);
write('Número de hijos:');
readln(numero_hijos);
write('Sueldo anual:');
readln(sueldoanual);
sueldofinal:=sueldoanual/12;
write('Su sueldo mensual es de: ',sueldofinal:2:3,' Euros ');

END.

Anterior