Program Division;
{Program to shw Real and Integer Division Writen by Philip Smith}
{Note the use of extra Writeln - used to improve screen layout. Simpler than GoToXY}

Uses Wincrt;
Var
   relAnswer                                    :Real;
   intNum1, intNum2, intWhole, intRemain        :Integer;

Begin
     {Enter data}
     Write('Please enter First integer number ');
     Readln(intNum1);
     Write('Please enter Second different integer number ');
     Readln(intNum2);

     {Real Division}
     relAnswer := intNum1 / intNum2;

     {Display real answer}
     Writeln;
     Writeln('Show real number division');
     Writeln;
     Writeln('In Scientific Format = ', relAnswer);
     Writeln;
     Writeln('Set Field Width first then the number of Decimal Places');
     Writeln;
     Writeln('Left aligned and 2 decimal places = ', relAnswer :0:2);
     Writeln;
     Writeln('Field width set at 25 and 8 decimal places = ', relAnswer :25:8);

     {Integer Divison}
     intWhole         := intNum1 DIV intNum2;
     intRemain        := intNum1 MOD intNum2;

     {Display Integer Answer}
     Writeln;
     Writeln;
     Writeln('*************** DIV and MOD ***************');
     Writeln;
     Writeln('DIV The whole number part is ', intWhole);
     Writeln;
     Writeln('MOD The remainer is ', intRemain);

     {Return to editor}
     Readln;
     DoneWinCrt;
End.