Задача на вывод y при введенном x - Pascal ABC

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

Доброго времени суток. Помогите, пожалуйста, решить задачу на Паскале. По графику(на изображении) нужно написать программу, которая при вводе х выдает y соответствующий графику. Заранее спасибо.

Решение задачи: «Задача на вывод y при введенном x»

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

var x,y:real;
begin
repeat
write('Введите x>=0 x=');
readln(x);
until x>=0;
if frac(x)=0 then y:=0
else
case trunc(x) mod 4 of
0,1:y:=1-frac(x);
2,3:y:=frac(x)-1;
end;
write('y=',y:0:2)
end.

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

Объявлены две переменные x и y типа real.
Запускается бесконечный цикл, прерываемый только при вводе значения x меньше или равного нулю.
В каждой итерации цикла пользователю предлагается ввести значение x.
Если введенное значение x не является целым числом, то программа выводит сообщение об ошибке и просит ввести корректное значение.
Если введенное значение x является целым числом, то программа вычисляет дробную и целую части числа.
В зависимости от остатка от деления целой части на 4, программа вычисляет значение y по-разному:
- Если остаток от деления равен 0 или 1, то y вычисляется как 1 минус дробная часть x.
- Если остаток от деления равен 2 или 3, то y вычисляется как дробная часть x минус 1.
Значение y выводится на экран с точностью до двух знаков после запятой.