IF TP.IN=TRUE THEN
TP(PT:=T, Q=>, ET=>);
y:=mas[N];
i:=N;
REPEAT
mas[i]:=mas[i-1];
i:=i-1;
UNTIL i=1
END_REPEAT;
mas[i]:=vhod;
END_IF;
TP.IN:=FALSE;
такой же результат(
p.s. посмотрел Эпюры, т.е. при переводе IN в тру Q сама переводится в тру?