Задача:
Если введённое число положительное, то найти его квадрат.
Если отрицательное, то найти его модуль. Если равно нулю, то вывести об этом сообщение.
Задача из Pascal, помогите плз.