Помогитее проошууу! составить программу паскаль!!! буду радаа!

Question

Помогитее проошууу! составить программу паскаль!!!
буду радаа!

---

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//1
Var
 x,y:real;
begin
 read(x);
 if x<=7 then<br>  y:=3*x-9 else
   y:=1/(x*x*x+4);
 writeln(y);
end.

//2
Var
 a,b:real;
begin
 read(a,b);
 if a>b then writeln(a*b) else writeln(a-b);
end.