Pascal prvočísla
Zdravim,
Potřebuju poradit. Následující program nefunguje a já potřebuju najít chybu:
program Prvocisla;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i,x,y:longint;
begin
y:=2;
for i:=1 to 10000000 do
x:= 2*i*i*i-3*i*i+i+3;
while x mod y <> 0 do y:=y+1;
if y=x then writeln(x);
readln;
end.