Помогите!!! Постройте в программе Паскаль!!! С помощью Алгоритма ВЕТВЛЕНИЯ!!!!

Благодарю.

Пока, к сожалению, не могу вставить разделители строк

var x,y:real;beginwrite('x='); readln(x);if x>=1 then y:=5*x else y:=x*x;writeln('y=',y);end.Пример:x=3y=15