Определите значение переменной z после выполнения фрагмента алгоритма: z: =1; repeat z: =z+2 until z=10; 1) 9 2) 11 3) 10 4) 1 5) ни один из вышеперечисленных ответов не верен, мой ответ: и в целом объясните) как то меня ввела в тупик эта )

Условие  проверяется после декремента и если истинно, то цикл завершается 1 +2=3 +2=5 +2=7 +2=9 +2=11 +2=13 выходит,  что  цикл не  завершится по условию, т.к.  не попадёт в "10", вариант ответа  №5

1)program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так