program Project2;

{$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 For to DO, repetindo o código n-vezes}
    for i := 1 to n do
      begin
        WriteLn('Eu te amo 1234!');
      end;
    ReadLn;
end.