Program logicander;
Uses WinCrt;
Var
edad, falta, fn, presente : integer;
Begin
WriteLn ( 'Ingrese el año actual' );
ReadLn (presente);
WriteLn ( 'Ingrese su año de nacimiento' );
ReadLn (fn);
edad:= presente-fn;
falta:= 18-edad;
WriteLn ( 'Su edad es: ', edad);
WriteLn ( 'Le falta/n para ser mayor de edad: ', falta);
If edad<18 then
WriteLn ( 'Usted aun es menor de edad')
Else
WriteLn ( 'Usted ya es mayor de edad' )
end.
