{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:integer;
Begin
write('Küp alınacak sayı = ');read(b);
sonuc:=kup(b);
writeln(sonuc);
readln;
End.