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


Пример(неправильно):
Program Z1;
Var x,y:real;
begin
Write('Введите значение x,y');
Read(x,y);
IF (x<1) THEN
y:=sqr(x)else
y:=5*x;
Write('Больше или равно')
Write('Меньше');
End.

Var x,y:real;beginWrite('Введите значение x');Read(x);IF (x<1) THENy:=sqr(x)elsey:=5*x;Write(y);End.

Program Z1;Var x,y:real;beginWrite('Введите значение x = ');Readln(x);if x>=1 then y:=5*x else y:=sqr(x);Write('y=',y);End.Пример:Введите значение x = 3y=15