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

//Pascal ABC.NET v3.1 сборка 1172//1Var x,y:real;begin read(x); if x<=7 then  y:=3*x-9 else   y:=1/(x*x*x+4); writeln(y);end.//2Var a,b:real;begin read(a,b); if a>b then writeln(a*b) else writeln(a-b);end.