contoh pemograman pascal LOOP (for...downto...do)

program for1;
var batas,i:integer;
begin
    writeln('mencetak bilangan');
    write('akan mencetak bilangan sampai berapa?  ');readln(batas);
    for i:=batas downto 0 do
    writeln(i);
    end.