Question

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

Answer 1

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

Answer 2

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