Perpangkatan

Program perpangkatan;
Uses wincrt;
Var
A,B,C,D,P:integer;
Begin
Clrscr;
Writeln;
Write ('bilangan yang di gunakan sebagai pangkat : '); readln (P);
For a:= 1 To P Do
Begin
A:= a;
B:= a*a;
C:= a*a*a;
D:= a*a*a*a;
End;
writeln;
Writeln ('Nilai 1 pangkat ',P,' adalah : ',A);
Writeln ('Nilai 2 pangkat ',P,' adalah : ',B);
Writeln ('Nilai 3 pangkat ',P,' adalah : ',C);
Writeln ('Nilai 4 pangkat ',P,' adalah : ',D);
Readln;
End.