{$codepage UTF8} PROCEDURE Infinito; Begin Writeln('a'); Infinito End; BEGIN Infinito; Writeln('FIN del programa') END.