// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)<br> else
if x>3 then Writeln('y=',x*x);
end.
Пример:
Введите x-> 2
y=6
2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)<br> else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)<br> else Writeln('y=',x*x*x:0:2);
end.
Пример:
Введите x-> 5
y=125.00