for-downto

program for_downto;
uses crt;
var i: integer;

begin
    clrscr;
    for i:=5 downto 1 do
    begin
        writeln('Bootcamp ke-', i)
    end;
end.