program for_do;
uses wincrt;
var
a,b,c,d,n,e:integer;
bagi:real;
begin
write ('input banyak perulangan : ');readln(n);
writeln ('---------------------------------------------------------');
writeln (' a a*a a*a*a a*a*a*a 1/a ');
writeln ('---------------------------------------------------------');
for a:=1 to n do
begin
b:=a*a;
c:=a*a*a;
d:=a*a*a*a;
bagi:=1/a;
writeln ( a:5, b:10, c:12, d:11, bagi:14:2);
end;
writeln ('--------------------------------------------------------');
readln;
donewincrt;
end.