program amor1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,n:integer;

begin
  WriteLn('Escreva o numero de vezes que deseja que a frase repita:');
  ReadLn(n);

    {aqui vem o while, repetindo o código n-vezes}
    while i <= n do
      begin
        WriteLn('Eu te amo!');
        i := i+1;
      end;
    ReadLn;
end.