ИНФОРМАТИКА: Помогите, пожалуйста, написать эту систему на языке Pascal: y={x^2, x>=1, -x+5, x<=1}.

if (x > 1) or (x==1) y:=x*x
else y:=-x+5
тупое условие: 2 раза указано определение при x=1, это ошибка задачи
если есть ошибки, исправляй