Contoh Menghitung Pangkat While Do Pada Pascal

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

Output yang keluar ada layar adalah :
1
4
9
16
25