turbopascal.,.,.,.,.,.,,

tentang perulangan

 

sebagai berikut:

uses crt;

var

a:byte

begin

clrscr

a:=20 ;

begin

while a>=10 do

begin

writeln (a);

a:=a-2;

end;

readln

end.