Ejercicio 3(Inicio)

PROGRAM calcular_edad_de_jubilacion(input,output);

(*Entrada nombre apellidos y edad de usuario
Objetivo sr/a.apellido,le faltan aun X años para jubilarse.
Edad de jubilacion 67 años*)
VAR
 nombre:string(15);
 primer_apellido:string(15);
 segundo_apellido:string(15);
 edad, X:integer;

BEGIN
   write('Nombre:');
   readln(nombre);
   write('Primer apellido:');
   readln(primer_apellido);
   write('Segundo apellido:');
   readln(segundo_apellido);
   write('Edad:');
   readln(edad);
   X:=67-edad;
 
write('Sr/Sra. ',primer_apellido,' le faltan aún', X:2, ' años para jubilarse')

END.

Anterior                                                                                                                                       Siguiente