code:
--------------------------------------------------------------------------------
program crap;

var
subcnt : integer;
factor : integer;
result : integer;

begin
subcnt := 1;
factor := 1;
repeat
         result := 2^factor;
         if subcnt = 5 then
            writeln(result, ', ');
            subcnt := 1;
         else
            write(result, ', ');
            subcnt := subcnt +1;
until (result = 20000);
end.
----------------------------------------------------------------
Compiler call:
C:\FPC\202A4D~1.0\bin\I386-W~1\ppc386 C:\DOCUME~1\LOCALA~1\MIJNDO~1\Projects\Start\srcfiles\Exrc2.pas -oc:\docume~1\locala~1\mijndo~1\projects\start\start.exe -Sg -XD -XX -Xs -O1 -Op1  -FuC:\FPC\202A4D~1.0\units\I386-W~1\  -FlC:\FPC\202A4D~1.0\units\I386-W~1\-FlC:\FPC\202A4D~1.0\units\I386-W~1\rtl\ -FDC:\FPC\202A4D~1.0\bin\I386-W~1\   -WC

Compiler output:
12 / 21 Exrc2.pas
 Fatal: Syntax error, "UNTIL" expected but "const char" found

12 / 21 Exrc2.pas
 Error: Compilation aborted

IDE:
Bloodshed Dev-Pascal 1.9.2