Составьте программу в Паскале для проверки утверждения: "Результатами вычислений по формуле

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 (Alt;gt;0)and(dlt;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.