1)7
2)4
3) В строке где x:=x-1 и until x mod 17 <> 0;
Объяснение:
1) Цикл будет выполняться, если x = 0. По условию он равен 7, следовательно цикл не выполняется и переменная X будет равна 7.
2) В ходе выполнения цикла x будет равен 4
3) По условию мы должны не отнимать от X - 1, а прибавлять и повторять пока x mod 17 = 0;
Эти строки нужно заменить на:
x:= x + 1;
Until x mod 17 = 0;
