program primos;
uses crt;

var i, n, divisor : integer;

begin
    write ('Ingrese la cantidad de n'#163'meros primos: ');
    readln (n);
    i := 2;
    writeln;
    while n > 0 do
        begin
            divisor := 2;
            while (divisor < i) and ((i mod divisor) <> 0) do
                inc (divisor);
            if divisor = i then
                begin
                    if i <> 2 then
                        write (', ');
                    write (i);
                    dec (n);
                end;
            inc (i);
        end;
    write (#10#13#10#13'Presione una tecla para terminar . . . ');
    readkey;
end.