Cálculo de edad

Program Age;
Uses WinCrt;
Var actual, nacimiento, edad, faltante: integer;
Begin


Writeln ('Ingrese actual');
Readln (actual);
Writeln ('Ingrese nacimiento');
Readln (nacimiento);
edad:=actual-nacimiento;
faltante:=18-edad;
Writeln ('La edad es: ', edad);
Writeln ('Le falta para ser mayor de edad: ', faltante);


If edad<18 then
Writeln ('Por lo tanto es menor de edad')
Else
Writeln ('Por lo tanto es mayor de edad')
End.