Фрагмент

s:=0x:=1нц пока (x<5)      s:=s+x      x:=x+1кц

вычислит s равное:

х:=10i:=0нц пока (i<=10)      x:=x+5–i      i:=2*(i+1)кц

даст значение переменной x равное:

s:=0i:=1нц пока (i<5)      i:=i+1      s:=s+iкц

даст значение переменной s равное:

s:=0i:=1нц пока (i<4)       s:=s+i       i:=i+1кц

даст значение переменной s, равное:

нц пока ;

если (y>x) то y:=y–x иначе x:=x–y все;

нц пока (x<y);

если (y<x) то y:=y–x иначе x:=x–y все;

кц ,

можно скомпоновать тело алгоритма поиска НОД(x, y) в следующем порядке:

нц пока (a<=b)       b:=b–aкц

вычисляет значение b равное:

s:=1p:=10нц пока (p>1)     s:=s+1     p:=mod(p,s)кц

вычисляет значения переменных s и p равные, соответственно:

s:=x[1]нц для i от 1 до n   если (s>х[i])       то s:=х[i]   всекц

определяет значение s равное:

y:=1нц для i от 1 до n   если ((9<х[i]) и (х[i]<100))       то y:=y*x[i]   всекц

определяет значение y, равное:

нц для i от 1 до n      x:=div(i,10)      y:=mod(x,10)кц

вычисляет значение переменной y равное:

p:=abs(x[1])нц для i от 2 до n   p:=p*abs(x[i])кцесли (n>1)   то p:=p**(1/n)все

определяет значение p равное: