{Fonksiyonumuzu tanımlıyoruz ilk olarak}
function
kup(a:
integer
):intger;
Begin
kup:=a*a*a;
{Sonuç değişkeni fonksiyonun adına eşit olmalı}
End
;
{Fonksiyonu tanımladık sıra geldi programa}
Var
b,sonuc:
write
(
'Küp alınacak sayı = '
);read(b);
sonuc:=kup(b);
writeln
(sonuc);
readln;
.