подскажите пожалуйста как решается эта задача код и блок схему

Question

дано число n > 1 если n являетсЯ простым числом то вывести сообщение n простое чилсо если иначе то n составное использовать операцию деление по модулю

Серега Пак · Accepted Answer

program prog;
var 
i,n:integer;
b:boolean;
begin
write('n=');
readln(n);
b:=false;
for i:=2 to n-1 do
if (n mod i = 0) then b:=true;
if b then writeln(n, ' - составное')
else writeln(n, ' - простое')
end.