Contoh Program Pengurangan 3 Repeat Until Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
a:=15;
repeat
writeln(a);
a:= a-3;
until a<3;
readln;
end.


Output yang Dihasilkan adalah :
15
12
9
6
3