Помогите составить программы в паскале по этим двум алгоритмам.
Заранее спасибо!

program n1; var (x,y);begin read(x); if x<=-100 then y:=5x+10 else  if (-100<x)and(x<=0) then y:=sqr(x)-1 else y:=abs(x); writeln('y=',y);end.program n2; var (x,y);begin  raed(x); if x<=-20 then y:=3*sqr(x)*x else  if (-20<x)and(x<=30) then y:=abs(x) else y:=30; writeln('y=',y);end.