• Source
    1. program for3;
    2. var
    3. i:integer;
    4. begin
    5. for i:=5 downto 1 do
    6. begin
    7. writeln('hello');
    8. writeln('i = ',i);
    9. end;
    10. end.