Programa Para Calculo de Edad

program edad;

uses wincrt;

var

a,b,c,d:integer;

begin
writeln('****Programa Para Calculo de Edad****');
writeln('');
writeln('Introduzca su Fecha de Nacimiento Ejm: 1993 ');
readln(a);
writeln('Introduzca Año Actual Ejm: 2012 ');
readln(b);
c:=b-a;
d:=18-c;

if c >= 18 then
write('Usted es mayor de edad')
else
if c<18 then
write('Usted no es mayor de edad y le faltan, ', d ,' año(s) para cumplirlos ');

end.