========== HelloWo1.PAS ==========

PROGRAM   HelloWo1 ;
BEGIN
   Write (   'Hello World...'   );
END.
                                       +---------------------------------------
========== HelloWo5.PAS ==========     ! ========== Chr20_FF.PAS ==========
                                       !
PROGRAM   HelloWo5 ;                   ! PROGRAM   Chr20_FF ;
BEGIN                                  ! VAR
   WriteLn (   'Hello World.....'   ); !    i : Integer ;
   WriteLn (   'Hello World.....'   ); ! BEGIN
   WriteLn (   'Hello World.....'   ); !    Write (   '***** CHARS: '   );
   WriteLn (   'Hello World.....'   ); !
   WriteLn (   'Hello World.....'   ); !    {----- LOOP }
END.                                   !    FOR i := 32 TO 255 DO BEGIN
                                       !       Write (   Chr(i)   );
========== HelloWo9.PAS ==========     !    END;
                                       ! END.
PROGRAM   HelloWo9 ;                   !
VAR                                    ! ========== PrimeNb.PAS ==========
   i : Integer ;                       !
BEGIN                                  ! PROGRAM   PrimeNb ;
   {----- LOOP }                       ! VAR
   FOR i := 1 TO 9 DO BEGIN            !    IsPrimeArray : ARRAY[1..1000] of
      WriteLn('Hello World.........'); !                              Boolean ;
   END;                                !    i : Integer ;
END.                                   !    j , jMax : Integer ;
                                       ! BEGIN
========== Writ2x2.PAS ==========      !    Write (   '***** PRIME NUMBERS: ');
                                       !
PROGRAM   Writ2x2 ;                    !    {----- LOOP 1 , On each number }
BEGIN                                  !    FOR i := 1 TO 1000 DO BEGIN
   Write (   2 + 2   );                !
END.                                   !       {----- Could be a prime number }
                                       !       IsPrimeArray[i] := TRUE ;
========== WritCalc.PAS ==========     !
                                       !       j    := 2 ;
PROGRAM   WritCalc ;                   !       jMax := i div 2 ;
VAR                                    !
   R : Real ;                          !       {----- LOOP 2 ,Search a divisor}
   C , A : Real ;                      !       WHILE IsPrimeArray[i]
BEGIN                                  !               and (j <= jMax) DO BEGIN
   R := 10 ;                           !          {----- "j" can divide "i" ? }
                                       !          IF (i mod j) = 0 THEN BEGIN
   C := 2 * PI * R ;                   !             IsPrimeArray[i] := False ;
   A := PI * R * R ;                   !          END;
                                       !          Inc ( j );
   WriteLn (   'Radius='         ,  R);!       END;
   WriteLn (   'Circumference='  ,  C);!
   WriteLn (   'Area='           ,  A);!       {----- Display only prime numbs}
END.                                   !       IF IsPrimeArray[i] = TRUE THEN B
                                       !          Write (   i  ,  ' '   );
========== WritMsg.PAS ==========      !       END;
                                       !    END;
PROGRAM   WritMsg ;                    ! END.
VAR                                    +---------------------------------------
   MyMsg : String ;
BEGIN
   MyMsg :=  '- Nice weather, isn''t it ?'  +  #13#10
           + '- Yes "nice" weather.'        +  #13#10 ;

   Write (   MyMsg   );
END.
