Надо а потом еще помочь я не знаю ответ прости
Var
x, y: real;
begin
Write('Введите х: ');
Readln(x);
if x < 1 then y := 2 * x - 5
else y := x * x * x - 2 * x;
Writeln('y=', y)
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.
<u>Примеры</u>
35423
False
13290192
False
132903
True