Задача 18.3. Надрукувати всi простi числа з промiжку 1..2000.

{Простi числа - це такi числа, якi дiляться тiльки
на 1 i на самого себе}

Program Prosti_chisla;
var x,i:integer;
p:boolean;
begin
for x:=1 to 2000 do begin {Перебираїмо числа}
p:=true;
if x mod 2 = 0 then p:=false {Якщо парне то не просте}
else begin
 i:=3; {будемо дiлити на непарнi числа починаючи з 3}
 while (iand (p=true) do {поки дiльник <числа i
   число на нього не дiлиться}
 begin
 if x mod i = 0 then p:=false; {перевiряємо чи число не
    дiлиться на менше вiд себе непарне число}
    i:=i+2; {беремо наступне непарне число}
 end;
end;
if p then write(x:5) {якщо просне то друкуїмо його}
{else writeln ('Не просте')};
end;
writeln;
end.