Pascal ABC. Ввести х, вычислить функцию?

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

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: pas1.ru

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. pas1.ru