Question

Написать программу на языке Паскаль на тему: "составить программу для решения систем уравнений"

Answer 1

Var x, y:real;
begin
Readln (x);
If x < 0 then y:=x*x-3*x 
else y:=5*x-x*x;  
Writeln (y);
end.