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.