Algoritma Voltage menggunakan fungsi

function tegangan (R, A : integer) : integer
Deklarasi lokal :
     (tidak ada)
Algoritma :
      return (R*A)

Program Voltage
{dibaca resistor dan arus, hitung voltage dan tampilkan hasilnya dilayar}

Deklarasi :
        R,A:integer;
        V:integer;
        function tegangan(R,A:integer) :integer;

Algoritma :
       read(R, A);
        V ? tegangan(R,A);
        write(V)