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

var a:integer;beginreadln(a);if a>0 then a:=a+50 else if a<0 then a:=a*a else a:=100;writeln(a);end.Пример:-25625