Помогите пожалуйста составить программки для первого и второго задания в PascalABC

меня как заказчика устраивает

ну, если не правильно, то уже мои препядствия

сам виноват, не надобно было на парах ерундой заниматься

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)

1)

begin

var x := ReadInteger('x-gt;');

Println('y=3*x**6-6*x**2-7');

end.

Пример во вложении под номером 1.

2)

begin

var x := ReadInteger('x-gt;');

Println(x in [1..5] ? 'x^2+15=x * x + 15' : '4*x=4 * x');

end.

Пример во вложении под номером 2.

Воооотттт... программки на скринах. как можешь заметить понизу , с подтверждением того,что они работают)
буду крайне благодарна, если отметишь,как лучшее решение)
Если что-нибудь еще понадобится-обращайся)
всегда рада посодействовать)))