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

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

дали бы вы мне ссылочку в вк или номер в телеграмме и ватсап

здесь ссылки полностью писать нельзя, но ечли напишу id от вк, сможешь найти?)

думаю смогу)

olenka_vladimmirovna

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

// PascalABC.NET

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

1)

begin

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

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

end.

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

2)

begin

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

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

end.

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