Le operazioni più comuni con gli interi, con input dell’utente per le variabili.
Program Prova_Interi; Var a, b: Integer; Begin Write('Valore intero per a? '); Readln(a); Write('Valore intero per b? '); Readln(b); 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.