Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме. Определите значение переменной k после его

k:=0;

repeat

read(x);

while х>1 do k:=k+1; until x 0;

writeln(k);

k x x > 1 х = 00 1 нет нет0 5 Да нет1 -10 нет нет1 3 да нет2 -8 нет нет2 6 Да нет3 1 нет нет3 2 Да нет4 -7 нет нет4 4 да нет5 0 нет Да