Contoh Program Paskal For Downto do

uses crt;
var i : integer;
begin
for i:=5 downto 3 do  write (i*2,' '); write(i);
readln; end.



Hasil:

10 8 6 3


Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2