Перевести с алгоритма на паскаль
Алг выражение
Нач цел Х
Вещ У
Ввод Х
Если Х больше 0
То У равен корень из Х
Иначе У равен abs(Х)
Все
Вывод У
Конец