program name;

{$APPTYPE CONSOLE}

uses
SysUtils;
var TmpName : string;
Count,i : Integer;

begin
WriteLn('What is your name? and credit card number');
ReadLn(TmpName);
WriteLn('Enter number te repeat:');
ReadLn(Count);
if Count=0 then exit;
for i:=1 to Count do WriteLn(TmpName);
end.