Unreachable code in Pascal

UnreachableCode.pas

Program Unreachable_Code_Sample;
Uses  Crt;
Var N1: Real;

Begin
    Clrscr;
    N1 := 0;

    If N1 > 0 then 
    Begin  
        { unreachable code... }
        ClrScr;               
        Write('Input N1:'); 
        Readln(N1);           
        Readkey;
    End;
End.  

{ HEY GIST, Y U NO PASCAL IN DROPDOWNLIST? }