Question

Срочно!!! Помогите!!!! Нужно в PASCAL

Answer 1

Объяснение:

function F(x: real): real;

begin

if x >= 0 then

F := x*x + 5

else

F := x*x / 5;

end;