Skip to content

Instantly share code, notes, and snippets.

@ldaniel

ldaniel/UnreachableCode.pas

Created March 13, 2012 14:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ldaniel/2029056 to your computer and use it in GitHub Desktop.
Save ldaniel/2029056 to your computer and use it in GitHub Desktop.
Download ZIP
Unreachable code in Pascal
Raw
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? }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment