yudium

program Ubah_Hari_Ke_Tahun_Bulan_Hari;
{I.S. : user memasukkan jumlah hari * tolong edit}
{F.S. : menampilkan konversi jumlah hari ke tahun, bulan n hari * tolong edit}

var
  jmlh _hari, tahun, bulan, hari : Integer;

begin
     write('Jumlah Hari : ');
     readln(jmlh_hari);

yudium

program Contoh_Penggunaan_Variabel;
var
    A, B, C : Integer;

begin
    A := 3;
    B := 5;
    C := A + B; {hasil : 8}
end.

yudium

var
    A : Integer;
    B : Integer;
    C : Integer;

yudium

program_contoh_variabel_dlm_notasi_algo
kamus :
    A, B, C : Integer

algoritma :
    A ← 3
    B ← 5
    C ← A + B

yudium

program tipe_boolean_dan_operator;
var
    A, B, C : Boolean;

begin
    A := true;
    B := false;
    C := A and B;
    
    writeln;

yudium

program tes;
var
    A, B : Integer;

begin
    A := 3;
    B := 5;
    
    writeln(A < B); {hasil : TRUE}
    writeln(A > B); {hasil : FALSE}

yudium

program variabel_scope;
{kamus utama}
var
    A : Integer;

procedure tes();
{kamus lokal}
var
    A : Integer;
begin

yudium

Procedure <nama_procedure>(<daftar parameter>)
{I.S. : ..... }
{F.S. : ..... }
Kamus :
    {deklarasi variabel}
Algoritma :
    {statement}
EndProcedure

yudium

program_belajar_procedure
var
  A : Integer;

// ----------------------------------------------------
Procedure Tampilkan(input A : Integer)
Kamus :
    {tidak ada}
Algoritma :
    Output(A); // menampilkan nilai A, dimana nilai A sudah didefenisikan sebelum procedure dipanggil.

yudium

program_belajar_procedure
var
  A : Integer;

// ----------------------------------------------------
Procedure Tampilkan(output A : Integer) 
Kamus :
    {tidak ada}
Algoritma :
    Output(A) // menampilkan nilai A, dimana nilai A sudah didefenisikan sebelum procedure dipanggil.