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

Program First;varx, y : integer;beginreadln(x, y);if x<10 thenbeginy:= 2*x-5+x;writeln(y);endif (x<13) and (x>10) thenbeginy :=5*x*x-x;writeln(y);endif x>=13 thenbeginy :=7*x-5;writeln(y);endend.