Pascal Pengurangan 3 While-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai pengurangan 3 while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

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