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

progran Znanija;var x, y:integer;beginreadln(x);if x<10 then y:=2*x+x-5;elsebeginif x<13 then y:=5*x*x-x;elsey:=7*x-5;endwriteln(y);end.