Пример программы на Pascal ABC, которая позволяет ввести значение x и вычислить функцию: 2

program zadacha1;uses crt;var x:integer; y:real;begin  writeln ('vvedite znachenie chisla x:');  readln(x);  {Ввод значения числа х}  y:=2*x-5/x-1;  {Вычисление значения функции у}  writeln ('y=',y);  {Вывод результата вычисления значения функции у на экран}end.

Также на сайте pas1.ru представлен пример программы, которая вычисляет значение функции у = x – 2, если x > 0, y = 0, если x = 0, y = |x|, если x < 0: 5

var x, y: integer;begin  write('x = ');  readln(x);  if x > 0 then y := x - 2  else if x = 0 then y := 0  else y := abs(x);  writeln('y = ', y);end.

Для реализации программы можно использовать конструкцию условного оператора if-else. 5