Prova gli interi 3

Le operazioni più comuni con gli interi, con i valori delle variabili visualizzati insieme alle espressioni.

Program Prova_Interi;
Var
    a, b: Integer;
Begin
    a:=65;
    b:=3;

    Writeln('Maxint = '         , Maxint );
    Writeln('+', a, ' = '       , +a     ); 
    Writeln('-', a, ' = '       , -a     );
    Writeln(a, ' + ', b, ' = '  , a+b    ); 
    Writeln(a, ' - ', b, ' = '  , a-b    );
    Writeln(a, ' * ', b, ' = '  , a*b    );
    Writeln(a, ' Div ', b, ' = ', a Div b);
    Writeln(a, ' Mod ', b, ' = ', a Mod b);
    Writeln('Succ(', a ,') = '  , Succ(a));
    Writeln('Pred(', a ,') = '  , Pred(a));
    Writeln('Abs(', a ,') = '   , Abs(a) );
    Writeln('Sqr(', a ,') = '   , Sqr(a) );

    Writeln('Sqrt(', a ,') = ', Sqrt(a):1:2); { Real    }
    Writeln(a, ' / ', b, ' = ', (a/b):1:2  ); { Real    }
    Writeln('Chr(', a ,') = ' , Chr(a)     ); { Char    }
    Writeln('Odd(', a, ') = ' , Odd(a)     ); { Boolean }

    Writeln(a, ' < ', b, ' = ' , a < b );     { Boolean }
    Writeln(a, ' <= ', b, ' = ', a <= b); 
    Writeln(a, ' = ', b, ' = ' , a = b ); 
    Writeln(a, ' > ', b, ' = ' , a > b );
    Writeln(a, ' >= ', b, ' = ', a >= b); 
    Writeln(a, ' <> ', b, ' = ', a <> b);         

    Readln;
End.