Pascal. Задача 8-11

var
  i, n, k : integer;
  prime : boolean;
begin
  k := 1;  // Счетчик простых чисел
  n := 2;  // Первое простое число
  for k := 1 to 20 do begin
    writeln(n);
    repeat
      n := n + 1;
      prime := true;  // Предполагаем, что текущее число простое
// Проверяем деление на числа от 2 до корня из проверяемого числа
      for i := 2 to round(sqrt(n)) + 1 do
        if n mod i = 0 then begin
            prime := false;  // Число не простое
            break; // Нашли делитель, дальше нет необходимости проверять
          end;
    until prime; // Проверяем следующее число, пока не найдем простое
  end;
end.