Var A,x,d,k,p:integer;
Begin
WriteLn('f(x) = x^2 +x +41');
p:=0;
For x:= 1 to 39 do
Begin
A:=x*x+x+41;
Write('f(',x,') = ',A);
d:=2;
k:=0;
While (A<>0)and(d<A) do
Begin
if A mod d = 0 then k:=k+1;
d:=d+1
End;
if k = 0 then WriteLn(' - простое')
else
Begin
WriteLn(' - не является простым');
p:=1;
End
End;
if p = 0 then WriteLn('Все полученные числа - простые')
else WriteLn('Не все полученные числа являются простыми');
End.
Дерево-слух- можно узнать ветренно сегодня или нет.
Както-так...