Написать программу в Pascal ABC. Вычислить значение функции y(x) и вывести его ** экран

Question

Написать программу в Pascal ABC.
Вычислить значение функции y(x) и вывести его на экран

---

Answer 1

Progran Znanija;
var x, y:integer;

begin

readln(x);

if x<10 then <br>y:=2*x+x-5;

else
begin

if x<13 then <br>y:=5*x*x-x;

else
y:=7*x-5;

end

writeln(y);
end.