Syntax Contoh Fungsi

MENGHITUNG PANGKAT 3 DARI SEBUAH BILANGAN

{PROGRAM UTAMA}
program contoh_fungsi;                  
uses wincrt;
var angka, jawaban:integer;  {variabel global}            

{FUNCTION}
function kubik (x:integer):integer;  {variabel lokal}    
begin
     kubik := x * x * x;
end;         


{STATEMENT PROGRAM UTAMA}
begin
     writeln ('masukkan angka');
     readln (angka);

jawaban := kubik (angka);
writeln ('hasil pangkat tiga dari:',angka, '=' ,jawaban);

end.