Составить программу на Паскале Работа несложная для информатика. Буду благодарен

##

var x := ReadReal;

var y := if x <=5 then Sqrt((5 - x) / (x * x + 1)) else (12 * x - 1) / (2 * x);

Print(y)