Viết chương trình : Tính tổng B bằng 5+9+13..... chị đến khi B vượt quá 5000 thì đừng lại xuất hiện số hạng cuối cùng. Giải theo kiểu trình bày ra giấy giúp mình với

Program FNG;
Uses crt;
Var B,i: longint;
Begin
        Clrscr;
        b:=0; i:=5;
        While b<5000 do
        Begin
                b:=b+i;
                inc(i,4);
        End;
        If b>5000 then b:=b-i-4;
        Write(B);
        Readln
End.

Uses crt;
Var b,i: longint;
Begin
        Clrscr;
        b:=0; i:=5;
        While b<=5000 do
        Begin
                b:=b+i;
                inc(i,4);
        End;
        Write(i-4);
        Readln
End.