Question

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

Answer 1

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.