Пр- это практическая работа))
Используй муактивити на касания мыши в скрипте.
Это определение стандартной неэлементарной кусочно-постоянной математической функции 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
10*7-12= 58
58+2=60
60/12=5
5*5=25
а - 25
b - 60
c - 5
x - 58
Возможно, тебе это поможет.
Вариант сложения чисел в Паскале