Pascal 013 ► Mostrar los primeros 5 números primos

Ejercicio 013: Mostrar los primeros cinco números primos.

► Qué es un número primo y cómo calcularlo, aquí:
Determinar si un número es primo

Program Pascal_013;
uses crt;
var
    divisores, np, n, i : integer;
Begin
    divisores := 0;
    np := 0;
    n := 2;
    while np < 5 do
    begin
        for i:=1 to n do
            if (n mod i = 0) then
                inc(divisores);
        if (divisores = 2) then begin
            WriteLn(n);
            inc(np);
        end;
        inc(n);
        divisores := 0;
    end;
    ReadKey;
End.