Составить программу для вычисления значения функции y(х): y={0, если 02, y= {-3х в остальных случаях.

Program znachenie_funkcii;Uses CRT;Var x, y : real; Begin CLRSCR; Writeln( ‘ введите значение переменной x = ’ ); Readln(x);If (x > 0) and (x<=2) then y:=0;If x > 2 then y:=2;If x <= 0 then y:= -3*x;writeln( ‘ значение функции y= ’, y:5:2);repeat until keypressed;END.