Var i integer begin for i. Var x y integer. y 0 x 10 while x 0 do begin x x-2 y y+x end. у 0 х 10 while x>0 do begin х х-2 у у+х. var i n integer begin i= 1 while i=10.