Contoh Program Penggunaan Operator Aritmatika

program aritmatika;
uses crt;
var
a, b, c : integer;
d : real;
begin
clrscr;
write(‘Input Nilai A : ‘);
readln(a);
write(‘Input Nilai B : ‘);
readln(b);
c := a + b;
writeln(‘Hasil A + B = ‘,c);
readln;
c := a – b;
writeln(‘Hasil A – B = ‘,c);
readln;
c := a * b;
writeln(‘Hasil A * B = ‘,c);
readln;
c := a mod b;
writeln(‘Hasil A mod B = ‘,c);
readln;
c := a div b;
writeln(‘Hasil A div B = ‘,c);
readln;
d := a / b;
writeln(‘Hasil A / B = ‘,d:2:2);
readln;
end.