составьте программу вычисления значения y: на паскале

//Pascalvar  x, y: real;begin  write('x = '); readln(x);  if x > 100 then    y := 5 * x + 6  else  if ((x >= 10) and (x <= 100)) then    y := 200 * x  else  if x < 10 then    y := x / 2;  writeln('y = ', y);   end.