Program F59;
Uses Crt;
Var
        i,db:integer;
Const
        nev='Peti';
Begin
ClrScr;
Write ('Hanyszor irjam ki a nevet? ');
Readln(db);
ClrScr;
For i:=1 to db do
        GotoXY(1,20);
        Writeln(nev);

Readln;
End.