{* Задача 30 *}

Unit ZADACH30;
Interface
Implementation
Begin
 writeln('Генератор простых чисел, в основе формула 2x квадрат+29 при 1 меньше либо равно x меньше либо равно 36');
End.

Program pas14341;

Uses zadach30.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  x : integer;
  p : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Простые числа, сгенерированные по формуле P=2x^2+29');
  For x := 1 To 36 Do {* Цикл для x => [1 .. 36] *}
  Begin
    p := 2 * x * x + 29;
    write(p : 8);
  End;
  readln
End.