Question

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


Пример(неправильно):
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.

Answer 1

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

Answer 2

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

Пример:
Введите значение x = 3
y=15