Var
a,flag,i:integer;
Begin
Readln(a);
flag:=0;
for i:=2 to a do begin
if i<>a then if a mod i=0 then
begin flag:=1; break; end; end;
if flag=1 then Writeln('NO')
else Writeln('YES')
<span>End.</span>
Объяснение в приложении. Простите за почерк)
Ответ. слово вышло из букв АЛГОРИТМ.
под кружочком 4.
Это логическое умножение, т.е. А и В