реализовать функцию {y=3*x, если x>0;
x^2, если x<=0}
if x>0 then y:=3*x
else y:=sqr(x);
Язык PASCAL ABC

program name;var x, a, b: real;beginwriteln ('Введите значение Х');readln (x);a:=3*x;b:=sqr(x);if x>0 then writeln ('y=', a)elseif x<=0 then writeln ('y=', b);end.