Напечатать первые 100 простых чисел pascal. как можно короче программу и проще! СРОЧНО!

Не перестаю удивляться - какие всё-таки придурки встречаются на ответах!
Один даёт битую ссылку, второй пишет полный бред, третий тоже не блещет умом, не смотря на то, что в собственных глазах каждый из них - мастер креатива.. .
Странно, что нет того идиота с фразой "тебя на гугле забанили? "... видимо за ум взялся.. .

Вот исходник программы, написал на сколько смог просто.
Так же исходник на всякий случай выложил сюда: pastebin . com / unW00TRS (пробелы из адреса убирай)

program issimple;

var
i,n :integer;

{ НАЧАЛО функции нахождения простых чисел }
function simple(x:longint) :boolean;
var
i: longint;
begin
Simple:=false;
if x<2 then exit;
if not odd(x) and (x<>2) { проверяем на чётность }
then exit;

i:=3;
while i <= sqrt(x) do { проверяем только нечётные }
begin
if x mod i = 0 then exit;
inc(i,2);
end;
Simple:=true;
end;
{ КОНЕЦ функции нахождения простых чисел }

{ НАЧАЛО тела программы }
begin
n:=1; { количество найденных простых чисел }
i:=1; { текущее проверяемое число }
while n<=100 do begin { повторяем цикл, пока не будет найдено 100 простых чисел }
if simple(i) then begin { если текущее проверяемое чилсло - простое, выполняем тело условия}
writeln ('#',n:3,' = ',i:3); { выводим на экран порядковый номер простого числа и само число }
inc(n); { прибавляем к количеству найденных простых чисел ещё одну единицу }
end; { конец тела условия }
inc(i); { переходим к следующему проверяемому числу}
end; { конец цикла }

readln; { Ожидаем, пока юзер не нажмёт "Enter" }
end.
{ КОНЕЦ тела программы }