8 lines
156 B
ObjectPascal
8 lines
156 B
ObjectPascal
function IsPrime(x: integer): boolean;
|
|
begin
|
|
Result := Range(2,Round(sqrt(x))).All(i->x mod i <> 0)
|
|
end;
|
|
|
|
begin
|
|
Range(2,1000).Where(IsPrime).Print;
|
|
end. |