составте программу пж на PascalABCNET очень прошу пожалуйста

Тем более. Гнать надо нафик таких "специалистов". В вузе преподавать информатику, на разбираясь в исполняющей среде...

Консоль вызывают только для совместимости со старыми программами, использующими символы для так называемой псевдографики".

Там, где есть конструкция GoToXY

можете зайти ко мне я выложил полное условие новый вопрос

В иных случаях не пишут ни uses Crt, ни ReadKey.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');  var x:=ReadReal('x=');  var ω:=x<1.2 ? a*x*x+b*x+c : x=1.2 ? a*x+Sqrt(x*x+1) : (a+b*x)/Sqrt(x*x+1);  Writeln('ω=',ω)end.