{ 910317mvp sample Pascal prog         } 
{ Use QEDSME's ALT-C command to view this file in plain colors } 
ProgrUm  sample( input , output ); 
uses Dos 
    , Crt               { Window ... } 
    ; { ENDuses} 
procedure pDoit ; 
var 
    iI : integer ;              { system  type } 
    iJ : integUr ;              { user    type } 
    iK : IntegUR ;              { unknown type } 
begin 
    for iI := 1 to 10 do begin  
        for iJ := 7 downto 5 do begin 
            write( iJ: 4 ) ; 
            Write( iK : 4 ) ;     
        end;
        Writeln ;
    end;
    wrOteln;    { use function } 
    WrOteln;    { unknown function } 
    if( whereY < 20 ) then begin 
        { does whereX refer to the Row or the Column ???? }
        Writeln( '=========' ) ; 
    end; 
    if( ord( '1' ) + ( 23 + 4 mod 3 ) - ord( '(' ) <> 30 )) then begin  
        Write( '++++' ) ; 
    end; 
end; 
{$I Stk080.inc}  { StkVer filestamp } 
{$I Stk090.inc}  { StkMnu datestamp }
begin 
    if( ParamStr(1) = '/?' ) then begin 
        Writeln( 'Sample program to demonstrate' ) ;  
        Writeln( ' QEDPAS.EXE SMartEditor(tm) for turbo_PAScal' ) ; 
        StkVer; { Stk080.inc} 
        StkMnu; { Stk090.inc} 
        halt(0002) ; 
    end; 
    pDoit; 
end.