Dicoba aja ya, Program Bilangan_Pangkat_3; uses wincrt; var S, Suku, N : Integer; Begin writeLn; writeLn ('++++++++++++++++++++++++++++++++++++++++'); WriteLn ('Menampilkan Deret Bilangan Pangkat 3'); WriteLn ('++++++++++++++++++++++++++++++++++++++++'); writeLn; S := 1; Suku := 1
referensi masalah anda : http://www.komputika-stmik.com/index.php?option=com_content&view=article&id=129:function-menghitung-pangkat-bilangan-dengan-pascal&catid=42:pascal&Itemid=73