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;
writeln(a);
end.

Пример:
-25
625