Составить программу для проверки утверждения: «Результатами вычислений по формуле (х*х)+ х + 41 при 0<х<40 являются простые числа». Все результаты вывести на экран - Pascal(Паскаль)

uses crt;
var x,y,i,j,k,f:word;
begin
clrscr;
for x:=1 to 39 do
 begin
  y:=x*x+x+41;
  write(y,' ');
  f:=0;
  for j:=2 to round(sqrt(y)) do
  if y mod j=0 then
   begin
    f:=1;
    break;
   end;
 end;
writeln;
if f=0 then write('Все числа простые!')
else write('Не все числа простые!');
readln
end.