Напишите программу, которая вычисляет значение функции "егер это если"​

var x,y:integer;

begin

 readln(x);

 if x>0 then

   y:=x+100

 else if x=0 then

   y:=20

 else if x<0 then

   y:=sqr(x);

 writeln(y);

end.