Var x,y,f,z,a:real;
begin
write('Введите x,z: ');
readln(x,z);
if x>13 then f:=-3/(x+1)
else f:=-(x*x*x)+9;
if x<1 then y:=x*x
else
if x>1 then y:=x*x*x
else y:=x;
if x>z then a:=y*z*z/(3+power(2,3/5))
else a:=2*cos(x+z);
writeln('F(x)=',f);
writeln('Y=',y);
writeln('A=',a);
<span>end.
Если функции power нет, то вместо
</span>if x>z then a:=y*z*z/(3+power(2,3/5))
напечатать
if x>z then a:=y*z*z/(3+exp(3/5*ln(2))
Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
begin
x:=random(-4,7);
y:=x*x+1;
writeln(x:3,y:5);
end;
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->3*(i+1)); a.Println;
end.
<u>Результат</u>
3 6 9 12 15 18 21 24 27 30