Написать код программы на языке паскаль
(фото выше)
очень надо ​

program Hello;

var x : integer;

begin

 write ('Введите x: ');

 readln(x);

 if x > 3 then

 writeln('ответ: ', -3 * x + 9)

 else  

 writeln('ответ: ', (x*x*x)/((x*x) + 8));

end.

--- PascalABC.NET 3.6.2 ---

begin

 var func1: real -> real := x -> -3*x + 9;

 var func2: real -> real := x -> (x**3)/((x**2) + 8);

 var X := ReadInteger();

 Println(X > 3 ? func1(X) : func2(x));

end.

Пояснение: Тернарный оператор так же является условным, по этому его использование не противоречит условию задания.

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.

5`120`000 бит =  640 000 байт = 625 кб