Помогите пожалуйста. Задание #3 ** фото. Дано целое число.Если оно является...

Question

Помогите пожалуйста.
Задание #3 на фото.
Дано целое число.Если оно является положительным ,то прибавить к нему 50,если отрицательным,то возвести в 2 степень ,если нулевым,то заменить его на 100. Вывести полученное число.

---

Answer 1

var a:integer;
begin
readln(a);
if a>0 then a:=a+50
else if a<0 then a:=a*a else a:=100;<br>writeln(a);
end.

Пример:
-25
625