Паскаль Задача Сколько раз выполнится цикл? q:=25; p=:33; repeat q:=q+2; p:=p+3; until (q div 5) <> (pdiv 7);