Очень ! Заранее благодарю!

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;