Напишите, , программу в delphi.

дано натуральное число n.

вычислить .

#include <iostream>
/*Библиотека стандартного ввода-вывода C++ */                     
#include <string>
/*строки*/
#include <cstdio>
//Библиотека стандартного ввода-вывода C*/

using namespace std;

int main()
{
    short int maxDigit = -1;
    string str;
    printf("%s","Введите строку: ");
    cin >> str;                         
    /*Ввод строки*/
    for(int i = 0; str[i] != '\0'; i++)
    /*Цикл от начала строки до ее конца*/   
    /*('\0' - "нуль-терминатор" это символ конца строки)*/                            
    {                                         
        if((isdigit(str[i])) && (short int)(str[i]-48)>maxDigit)
        /*Если текуший символ цифра и она больше maxDigit)*/
        /*"(short int)...-48" преобразует char в short int*/           
        maxDigit = (short int)(str[i]-48);
        /*То maxDigit = этой цифре.*/  
    }   
    if(maxDigit == -1)  cout << "В строке нет цифр: " <<  "\n";   
    cout << "Наибольшая цифра: " << maxDigit << "\n";   
    /*Вывод */
    system("pause");
    return 0;
}

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var x:=ReadReal('x=');
  var y:=Sqr((1-x*x+5*Sqr(x*x)));
  Writeln('y=',y)
end.

Пример
x= 4.12
y=2029704.2032886

2a.
 
begin
  var x:=ReadReal('x=');
  var t1:=x*x; // x^2
  var t2:=t1*t1; // x^4
  t2:=t2*t2; // x^8
  t1:=t2*t1; // x^10
  Writeln('x^10=',t1)
end.

2b.

begin
  var x:=ReadReal('x=');
  var t:=x*x; // x^2
  t:=t*t; // x^4
  t:=t*t; // x^8
  t:=t*t; // x^16
  t:=t/x; // x^15
  Writeln('x^15=',t)
end.