contoh program for_do(turbo pascal)

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.