Contoh Menghitung Pangkat Menggunakan For Do Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
for a:=1 to 5 do
writeln(a*a);
readln;
end.


Output yang akan tercetak pada layar adalah :
1
4
9
16
25