составить алгоритм нахощие значение y(игрик) если y=x при условии x<0 y=0 при условии если x(икс) находится в диапозоне от 0 до 30

var x,y:real;beginreadln(x);if x<0 then y:=x       else if (x>=0) and (x<=30) then y:=0;writeln(y);end.