Program perpangkatan, menggunakan bahasa pascal

program  perpangkatan;

uses crt;

var

hasil,a: real;

i,n: integer;

begin

clrscr;

writeln('PROGRAM PERPANGKATAN');

writeln('...................................');

write('Masukan Nilai: ');readln(a);

writeln('...................................');

write('Masukan nilai pangkat:'); readln(n);

writeln('...................................');

hasil:=1;

for i:= 1 to n do

begin

hasil:=hasil*a;

end;

writeln('jadi hasilnya adalah: ',hasil:0:0);

writeln('...................................');

readkey;

end.

Berikut adalah ouput program diatas

PROGRAM PERPANGKATAN

...................................

Masukan Nilai: 3

...................................

Masukan nilai pangkat:4

...................................

jadi hasilnya adalah: 81

...................................

Contoh penulisan pada pascal