Question

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

Answer 1

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

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