Вычислите F(X) в зависимости от введенного X - Pascal ABC (12756)

Формулировка задачи:

При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления.

Решение задачи: «Вычислите F(X) в зависимости от введенного X»

Листинг программы

uses crt;
var
x: real;
y:real;
begin
write('x=');
readln(x);
if (x>=0) and (x<=1) then y:=sqr(x)-x
else  if  (x>1) and (x<0) then y:=sqr(x)-sin(pi)*sqr(x);
write('x=',x:5:2,'  y=',y:5:2);
readln;
end.

Объяснение кода листинга программы

В первой строке используется библиотека crt, которая является стандартной для языка Pascal ABC.
Переменные x и y объявлены как переменные типа real.
Строка write('x='); выводит на экран строку x=.
Строка readln(x); считывает значение переменной x с клавиатуры.
Строка if (x>=0) and (x<=1) then y:=sqr(x)-x проверяет условие: если x больше или равно 0 и меньше или равно 1, то присваивает переменной y значение выражения sqr(x)-x.
Строка else if (x>1) and (x<0) then y:=sqr(x)-sin(pi)*sqr(x) проверяет условие: если x больше 1 и меньше 0, то присваивает переменной y значение выражения sqr(x)-sin(pi)*sqr(x).
Строка write('x=',x:5:2,' y=',y:5:2); выводит на экран строку x=2.0000, y=1.4142.
Строка readln; завершает программу.