PROGRAM Exemplo_de_Sub_Rotinas ;
USES
  Crt ;
CONST
  Ano = 2001;
  Total = 5;

FUNCTION  Idade (Aatual,Anasc: Integer) : Integer ;
VAR
  Qtde:Integer;
BEGIN
  Qtde := Aatual - Anasc;
  IF Qtde >= 0
  THEN Idade := Qtde
  ELSE  Idade := -1;
END;

PROCEDURE Executa_dados_pessoa(nro_pessoa:integer);
VAR
  AnoNasc :  integer ;
  Nome: string;
BEGIN
  Write (nro_pessoa,' - Nome: ');
  Readln (Nome);
  Write ('    Ano de Nascimento: ');
  Readln (AnoNasc);
  writeln;
  Writeln ('Idade em 31/12/', Ano,':');
  Write (Idade(Ano,AnoNasc));
  Writeln (' anos');
  Writeln('Tecle <enter> p/continuar');
  readln;
END;

{ Programa Principal }
VAR
  Cont : integer;

BEGIN
  for cont:=1 to Total
  do Executa_dados_pessoa(cont);
END.