Это определение стандартной неэлементарной кусочно-постоянной математической функции sgn(x) - сигнум От латинского signum - знак).
В языке Паскаль эта функция уже определена.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
Writeln('y=',Sign(ReadReal('x=')))
end.
<u><em>Тестовое решение</em></u>
x= 4.564
y=1
Блок-схема и программа - в прилагаемых файлах
Решим задачу наоборот:
25->4;
Команда 1: Подели на 3;
Команда 2: Прибавь 1.
1) 25 + 1 = 26 (2).
2) 26 + 1 = 27 (2).
3) 27 : 3 = 9 (1).
4) 9 : 3 = 3 (1).
5) 3 + 1 = 4 (2).
Так как решали наоборот, то соответственно пишем ответ снизу-вверх.
Ответ: 21122.
К слову, порядок команд в задании и объяснении противоречат друг другу, то есть в задании: 1) *3. 2) -1.
А в объяснении: 1) -1. 2) *3.
Если условие в объяснении верно, то ответ будет: 12211.
1см - 2 клетки. Все очень просто