var:a,i,b:integer
begin
readln(a);
for i:=1 to a do
if a mod i=0 then b:=b+1;
if b=2 then writeln('простое число')
else writeln(' не простое число')
end.
Объясните пожалуйста подробно ,что делает эта программа? В чем суть ? Буду очень благодарна)