объясните как решить

Паскаль
var s, k: integer;
begin
s:=150;
k:=0;
while s>100 do begin
s:=s-10;
k:=k+1
end;
writeln(k)
end.
​

s изначально равен 150

Цикл выполняется до тех пор, пока s > 100

После каждого прохождения циклом s уменьшается на 10, а k увеличивается на 1

1 проход

s = 140

k = 1

2 проход

s = 130

k = 2

3 проход

s = 120

k = 3

4 проход

s = 110

k = 4

5 проход

s = 100

k = 5

Выходим с цикла и записываем k

k = 5;