Фрагмент вида ) k:=1; a:=12
while (a<100)
do begin
a:=2*a-4;
k:=k+1;
end;​

Код будет выполняться до тех пор, пока а < 100.

a:=2*a-4 = 2 * 12 – 4 = 20

k:=k+1 = 1 + 1 = 2

a:=2*a-4 = 2 * 20 – 4 = 36

k:=k+1 = 2 + 1 = 3

a:=2*a-4 = 2 * 36 – 4 = 68

k:=k+1 = 3 + 1 = 4

a:=2*a-4 = 2 * 68 – 4 = 132 // Это уже не выполнится, т.к. противоречит условию!

k:=k+1 = 4 + 1 = 5

ответ: а: = 68; k: = 4.