Arya's Blog

Function Menghitung Pangkat

function pangkat3(n:integer):integer;
begin
pangkat3:=n*n*n;
write('Nilai dari pangkat ',n,' = ');
end;
var
n:integer;
begin
write('Masukkan nilai dari n= ');readln(n);
write(pangkat3(n));readln;
end.