Сделать программу в паскале x в квадрате + y в квадрате - z в кубе

Var
  x,y,z:real;
begin
  Write('x,y,z= '); Read(x,y,z);
  Writeln('Результат: ',x*x+y*y-z*z*z)
end.

Тестовое решение
x,y,z= 3.18 -1.8 2
Результат: 5.3524

Язык программирования указан не был, приведу пример на Haskell.

Определим функцию seqAgv :: Int -> Double, принимающую шаг прогрессии. Все числа в прогрессии положительные. Самое большое из них равняется 100. Эту последовательность можно описать в виде [100, 100-step .. 1], где step – шаг прогрессии.

Таким образом, среднее арифметическое последовательности можно рассчитать как сумму всех элементов деленную на их количество.

Код приведен ниже.

import Data.List (genericLength)seqAvg :: Int -> DoubleseqAvg step  | step < 1 || seq >= 100 = error "Incorrect step"  | otherwise = realToFrac (sum seq) / genericLength seq  where seq = [100, 100-step .. 1]

#include <iostream>

// function which look for an index of min element

int findMinIndex(int* arr, int N)

{

   int min_idx = arr[0];

   for (int i = 0; i < N - 1; ++i)

       if (arr[i] < arr[min_idx])

           min_idx = i;

   return min_idx;

}

// function swap two elements

void swap(int *a, int *b)

{

   int tmp = *a;

   *a = *b;

   *b = tmp;

}

int main()

{

   int N;

   std::cin >> N;

   int* arr = new int[N];

   try

   {

       if (N > 100)

           throw "You have entered an impossible size of the array!\n";

   }

   catch (...)

   {

       std::cout << "Something error!\n";

exit(0);

   }

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

       std::cin >> arr[i];

   std::cout << "\n";

   swap(&arr[0], &arr[findMinIndex(arr, N)]);

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

       std::cout << arr[i] << " ";

   std::cout << "\n";

return 0;

}