program ContohBilanganBulat;
uses crt;
var
  angka1, angka2, hasilSum, hasilDiv: Integer; // Deklarasi tipe data integer
begin
  clrscr;
  angka1 := 10;
  angka2 := 3;
 
  // Penjumlahan
  hasilSum := angka1 + angka2; // Hasil: 13
 
  // Pembagian Bulat (div)
  hasilDiv := angka1 div angka2; // Hasil: 3 (sisa dibuang)
 
  writeln('Angka 1: ', angka1);
  writeln('Angka 2: ', angka2);
  writeln('Hasil Penjumlahan: ', hasilSum);
  writeln('Hasil Pembagian (div): ', hasilDiv);
 
  readln;
end.

cHJvZ3JhbSBDb250b2hCaWxhbmdhbkJ1bGF0Owp1c2VzIGNydDsKdmFyCiAgYW5na2ExLCBhbmdrYTIsIGhhc2lsU3VtLCBoYXNpbERpdjogSW50ZWdlcjsgLy8gRGVrbGFyYXNpIHRpcGUgZGF0YSBpbnRlZ2VyCmJlZ2luCiAgY2xyc2NyOwogIGFuZ2thMSA6PSAxMDsKICBhbmdrYTIgOj0gMzsKCiAgLy8gUGVuanVtbGFoYW4KICBoYXNpbFN1bSA6PSBhbmdrYTEgKyBhbmdrYTI7IC8vIEhhc2lsOiAxMwogIAogIC8vIFBlbWJhZ2lhbiBCdWxhdCAoZGl2KQogIGhhc2lsRGl2IDo9IGFuZ2thMSBkaXYgYW5na2EyOyAvLyBIYXNpbDogMyAoc2lzYSBkaWJ1YW5nKQoKICB3cml0ZWxuKCdBbmdrYSAxOiAnLCBhbmdrYTEpOwogIHdyaXRlbG4oJ0FuZ2thIDI6ICcsIGFuZ2thMik7CiAgd3JpdGVsbignSGFzaWwgUGVuanVtbGFoYW46ICcsIGhhc2lsU3VtKTsKICB3cml0ZWxuKCdIYXNpbCBQZW1iYWdpYW4gKGRpdik6ICcsIGhhc2lsRGl2KTsKICAKICByZWFkbG47CmVuZC4=