Trik Membuat Program Perpangkatan dengan Turbo Pascal 1.5

       Anda memiliki kesulitan dalam mengerjakan soal Matematika bab perpangkatan? Jangan khawatir! Turbo Pascal 1.5 akan membantumu. Tapi Anda harus membuatnya terlebih dahulu. Berikut caranya:
uses wincrt;
var
  i,a,b,c:integer;
begin
  writeln('Insert The Number : ');
  readln(a);
  writeln('Insert The Equal : ');
  readln(b);
  c:=1;
  for i:=1 to b do
  begin
    c:=c*a;
  end;
  writeln('The Result : ',c:4);
end.

Semoga bermanfaat :)