program pascal menghitung pangkat

program pascal menghitung pangkat 

Program Pangkat;
{fungsi pangkat(menghitung a^n)}

uses crt;

var i : integer;
var a : real;
var n : integer;
var hasil : real;

Begin
    hasil:=1;
    write('masukan bilngan : ');
    readln(a);
    write('masukan pangkat : ');
    readln(n);
  
    For i:= 1 to n do {inputkan data bilangan real}
        begin
            hasil:=hasil*a;
        end;
  
    write('hasil : ',hasil:0:0);
    end.


output :