program TestWhile1;
    
begin
    i := 1;
    
    while i <= 5 do begin
        i := i + 1
    end;
end.