Pascal. ABC Найти все трёхзначные простые числа.

program zz1;

var j:integer;

function Prost (a:longint) : boolean; / / проверка на простоту

var i:longint;

f:boolean;

begin

if a < 2 then f:=false

else

begin

f:=true;

i:=2;

while (i * i < = a) and f do / / пока счетчик меньше корня из числа и нет делителей

if a mod i = 0 then f:=false / / если делитель, то не простое

else i:=i + 1;

end;

Prost:=f;

end;

var n:integer;

begin

for j:=100 to 999 do / / переберем все трехзначные числа

if Prost (j) then writeln (j, ' '); / / закидываем число в функцию и выводим ответ

end.