Contoh Menghitung Pangkat Menggunakan Repeat Pada Pascal Until

Contoh Menghitung Pangkat Menggunakan Repeat Until  Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
a:=1;
repeat
writeln(a*a);
a:=a+1;
until a>5;
readln;
end.


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