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. объясните подробно ,что делает эта программа? в чем суть ? буду )

Ты вводишь любое число, которое в памяти компьютера присваивается в ячейку 'a'.  for i: =1 to a do  данная строка — некий алгоритм, повторяющийся  определённое количество раз; 1 to 'a' ('a' — число, которое ты ввела). например, если ты ввела число 3, то твой алгоритм будет повторяться 3 раза.  if a mod i=0 then b: =b+1  данная строка означает: если остаток от деления  'a' на 'i' равен нулю, то мы к 'b' прибавляем один.  if b=2 then writeln('простое число')  если число 'b' равно двум, то на экране выводим надпись: "простое число";   else writeln(' не простое число')если же число 'b' неравно двум, то на экране выводим надпись: "непростое число" (если переводить подробно).  а теперь, насчёт числа 3.  заменяем программу:   var a, i, b: integer;   begin readln (a);   for i: =1 to 3 do  if 3 mod i  =  0 then b: =b + 1;   if b = 2 then writeln ('простое число') else writeln ('непростое число'); end. вводится число 3. алгоритм повторяется 3 раза. остаток деления 3 на 1 равен нулю? — нет —> b + 1 (b = 1);   остаток деления 3 на 2 равен нулю? — нет —> b + 1 = 1 + 1 = 2 (b = 2);   остаток деления 3 на 3 равен нулю? — нет —> b + 1 = 2 + 1 = 3 (b = 3). < программа идёт дальше> если  b = 2, то выводим надпись: "простое число".  b  ≠ 2, так как b = 3 (после выполнения алгоритма) —> выводим надпись: "непростое число".  конец. надеюсь, доходчиво объяснил. удачи : )

1 строка - ввод строки, а не числа

2 строка - присваивание, а не сравнение