X 0 while x 10 x 1. Х 1 while x<10 do begin x: x+3 x: x+1 end;. паскаль x := 1000; z := 20; while (x >= 100) do begin x := x div 2; z := z – 3; end; write(z);. while j>1 do begin max:=arr(1).