Задача: Если введённое число положительное, то найти его квадрат. Если отрицательное, то...

Question

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

Answer 1

Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then WriteLn('Квадрат числа: ',A*A)
else if A < 0 then WriteLn('Модуль числа: ',Abs(A))
     else WriteLn('Число равно нулю');
End.

Comments

Благодарю.