fork download
copy 
  1. program ContohBilanganBulat;
  2. uses crt;
  3. var
  4.   angka1, angka2, hasilSum, hasilDiv: Integer; // Deklarasi tipe data integer
  5. begin
  6.   clrscr;
  7.   angka1 := 10;
  8.   angka2 := 3;
  9.  
  10.   // Penjumlahan
  11.   hasilSum := angka1 + angka2; // Hasil: 13
  12.  
  13.   // Pembagian Bulat (div)
  14.   hasilDiv := angka1 div angka2; // Hasil: 3 (sisa dibuang)
  15.  
  16.   writeln('Angka 1: ', angka1);
  17.   writeln('Angka 2: ', angka2);
  18.   writeln('Hasil Penjumlahan: ', hasilSum);
  19.   writeln('Hasil Pembagian (div): ', hasilDiv);
  20.  
  21.   readln;
  22. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Angka 1: 10
Angka 2: 3
Hasil Penjumlahan: 13
Hasil Pembagian (div): 3
https://ideone.com/TeCzTj
language:
Pascal (fpc 3.0.4)
created:
8 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!