Паскаль var a,i,b: integer; begin readln(a); while (b> 0) begin for i: =2 to a begin if ((a mod i)=0) then b: =b+1; end; a: =a+1; end; writeln(a); end. объясните это словесно,

Vara,i,b: integer; //мы определяем три переменные целого типа                    //a, i, b = равняются нулюbeginreadln(a); //вводиться с клавиатуры переменная awhile (b> 0)  do //это цикл с предусловием,                        //по условие в цикле истино, цикл продолжает работать                        //если условие ложно происходит выход из циклаbeginfor i: =2 to a  do //цикл  for  - цикл выполняется пока переменная  i=2  не станет больше переменной  а, прикаждой итерации(шаг) переменная  i увеличивается на 1beginif (a mod i=0) then b: =b+1; if  условие если  a mod i=0 истино, то  выполняется    b: =b+1  //mod -остаток от деления  //a mod i=0  если при делении  a  на  i  остаток будет равен 0, то условие истино end; a: =a+1;   //увеличение переменной a  на 1end; writeln(a); вывод переменной aend.код находящийся между beginend; это тело цикла или условия, и данный кусок программы выполняется до  end; и после этого снова обращается к строчке перед  begin

только не удаляй вопрос и не кидай жалобу просто я не могу задать вапрос мне тож просто нужно задание найти