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

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