Какое значение будет принимать переменная X и Y после выполнения фрагмента алгоритма.

y=-4
x=-9

36 и -9 по-моему.

var x,y:integer; begin Y:=1; X:=1; repeat Y:=Y*X; X:=X-5 until Y>=5; writeln(X,' ',Y) end.

-14 и 36

Если с выводом промежуточных результатов, то
1 1
-4 1
-9 -4
-14 36