While a 0 do begin. Фрагмент программы. Программы while x>0 do. Программа с while. Программы с for i in. Var a,b,c:integer; begin readln a. Readln(x);. Begin readln a b. Begin end программирование. P div 10. While do begin. Div 10 Mod 10. Цикл for c++ блок схема