Contact: aviboots(AT)netvision.net.il
39,851 questions
51,772 answers
573 users
program Countdown; var n, i: Integer; begin n := 5; for i := n downto 0 do begin Write(i, ' '); end; end. (* run: 5 4 3 2 1 0 *)