for-to

program for_to;
uses crt;
var i: integer;

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