Program Demo_For_Loop;
Uses WinCrt;
Var
   Counter:Integer;

Begin
     For Counter :=7 Downto 2 do
         Begin
              Writeln ('Philip', Counter);
         End;
     Readln;
DoneWincrt;
End.