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

Question

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

---

Answer 1

Program n1;
 var (x,y);
begin
 read(x);
 if x<=-100 then y:=5x+10 else<br>  if (-100 writeln('y=',y);
end.

program n2;
 var (x,y);
begin 
 raed(x);
 if x<=-20 then y:=3*sqr(x)*x else<br>  if (-20 writeln('y=',y);
end.

Comments

Большое спасибо!