Exemplo para iniciante

Program Atorizacao para dirigir;
var
num:integer;
 Begin
 writeln('digite a idade');readln(num);
 IF num >= 18 then
 Begin
 write('P');
 end
 ELSE
 Begin
 write('Não pode dirigir');
 end;
 End.