NBPrg40. MY1.PAS. MiniOS. OpenSource.

NBPrg40. MY1.PAS. MiniOS. OpenSource.
***************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit My1;

(****************************
 *                          *
 *   MY1.PAS                *
 *                          *
 *   My1.                   *
 *                          *
 ****************************)    

Interface

Uses Graph;

Procedure My1_run;

Implementation

Procedure My1_run;
Var i : Byte;
    gd,gm : Integer;
Begin
  WriteLn(' Nikita Beloshenko (GNU) 2013 ');
  WriteLn(' ----- My1 2013 {(test) (module)} ----- ');

  For i := 1 To 15 Do
  Begin
    Writeln('i = ',i,'  i*i = ',i*i,' i*i*i-3*i*i= ',i*i*i-3*i*i);
  End;

  ReadLn;

  gd := Detect;
  InitGraph(gd,gm,'');

  Line(100,100,200,200);

  ReadLn;

  CloseGraph;

End;

End.