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

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.

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

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать. 

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так