Ввести с клавиатуры значение x и вычислить значение функции: y=x, если x> 123 y=x2-x, если x> 0, но x< 123

Readln(x);
if x>123 then writeln(x)
else if (x<123) and (x>0) then writeln(x*x-x);

вроде так
среда: Паскаль