{skeleton of a Pascal Program}

Program program_name;  {this is the name of our program}
Uses Crt;              {used units: Crt,Dos..}
Label here,there;      {labels: any name but keyword}
Const min=100;         {constants declarations}
Type ST=String[20];    {new type definitions}
Var  v:Byte;           {variables declarations}
Procedure GoOut;       {Procedures declarations}
   Begin
     Write('Press any key to exit...');
     ReadKey;
     Halt;
   End;
{Function Declarations}
Function Divide2(a,b:Integer):Real;{<-- Return type}
   Begin
      Divide2:=a/b;
   End;
Begin {main body of our program}
     GoOut;
End. {main}


(*Created By FlamingClaw 2009.03.14*)