Циклы в Паскале

Задание 1

Дана последовательность операторов: a:=1; b:=1; while a+b<6; b:=b+2*a; end; s:=a+b сколько раз будет повторен цикл?

Задание 2

Что будет выведено на экране монитора после выполнения следующего фрагмента программы: b:=0; while a<>0 do begin a:=a div 10; h:=b*10+a mod 10; end; write(h); если а=13305?

Задание 3

Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 18; a := 8; repeat a := 2*a + 1; write( a); until (a>b) end.

Задание 4

Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 20; a := 5; for i:=1 to 5 do begin a := a + 1; write( a ); end; end.

Задание 5

Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 8; a := 3; while (a <= b) do begin a := a *2+1 ; write(a ); end; end.