Contoh Program Pengurangan 3 While Do 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