10. Membuat Perkalian dan Pembagian

Uses Crt;
Var
a,b,c : Integer;
bagi : Real;
Begin
clrscr;
Writeln('----------------------------------------------');
Writeln(' a       a*a     a*a*a         1/a ');
Writeln('----------------------------------------------');
For a := 1 To 10 Do
Begin
b:= a*a;
c:=a*a*a;
bagi := 1/a;
Writeln(a:4,c:10,b:10,bagi:12:3);
End;
Writeln ('----------------------------------------------');
readln
End.