Programadores também são poetas.

program Ah_Pascal;
var repete:string;

function declarar_meu_amor_por_Pascal(para_sempre:string):boolean;
begin
declarar_meu_amor_por_Pascal:=true;
while declarar_meu_amor_por_Pascal=true do
begin
writeln(repete);
declarar_meu_amor_por_Pascal(para_sempre);
end;
end;

begin
repete:='Eu te amo, Pascal!';
declarar_meu_amor_por_Pascal(para_sempre);
end.