Вычислить значение функции y=x^2, x< 1; y=x+8,x> 1 только не как в , а как в информатике тема: команда ветвления

If x<1 Then y:=sqr(2) Else If x>1 Then y:=x+8 Else Writeln('x не должен быть=0')
Объяснение:
Если x<1, то y:=, иначе, если x>1, то y:=x+8,иначе вывести:x не должен быть=0