Составьте программу на языке паскаль для вычесления y по формуле : y=1-2x=3x^2-4x^3 , где x - натуральное число

Program program1;
var
x, y: integer;
begin
write('Введите X: ');
readln(x);
y := 1 - 2 * x - 3 * Sqr(x) - 4 * Power(x, 3);
writeln('Y = ', y);
end.

Презентацию можно создать в PowerPoint'е. Запуская его, первой страницей будет титульный лист. На нем пишется тема презентации и кто подготовил.
Чтобы добавить слайды нужно нажать на кнопку "Создать слайд" (см. первый скрин).
Чтобы презентация была красочнее есть вставка различных объектов: изображений, звуков, фигур и прочего (см. второй скрин). Нажимаете на нужную кнопку, выберите, что надо и оно будет в презентации.
Также есть различные темы оформления, их можно скачивать из Интернета или пользоваться уже загруженными (см. третий скрин).
Есть анимация слайдов и показов слайдов, тоже можно выбрать (см. четвертый и пятый скрины).

Есть очень много примеров в YouTube или обычных статьях. Пусть подруга лучше их посмотрит/прочитает.

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}