Определите значение y в результате работы фрагмента программы:
y:=0;
x:=1;
repeat
y:=y+x;
x:=x+1;
until (x >3);