Part 10 : Program Perpangkatan

uses wincrt;
Var
j, k, l,g,i : Integer;
procedure Tebak(x,y:integer);
begin
k:=1;
For i:=1 to i do
k:=k*g;

Begin
If i=0 Then
Writeln ('Jadi ',g,' pangkat ',i,' =1')
Else If i=1 Then
Writeln ('Jadi ',g,' pangkat ',i,' =',g)
Else If i>1 then
Writeln('Jadi ',g,' pangkat ',i,' =',k);
End;
End;
Begin
Write('Angka = '); readln(g);
Write('Pangkat = '); readln(i);
Tebak(g,i);
End.

Hasil :