Напишите программу на языке паскаль вычисления функции

program raf105;

var x,a,c,b: real;

begin

write('a = ');

readln(a);

write('b = ');

readln(b);

write('c = ');

readln(c);

x: = (abs(a)-3*c)/(b*b);

writeln('x = ',x);

end.

Задание 1

#include <iostream>

#include <string>

using std::cout;

using std::cin;

using std::endl;

int main()

{    

       int arr[10];  //если у тебя дни недели то заменяй int на string

       // Заполняем массив с клавиатуры

       for (int i = 0; i < 10; i++) {

           cout << "[" << i + 1 << "]" << ": ";

           cin >> arr[i];

       }

       // И выводим заполненный массив.

       cout << "\nВаш массив: ";

       for (int i = 0; i < 10; ++i) {

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

       }

       cout << endl;

       return 0;

}

Объяснение:

Ответ - 29 var       f, f1, f2: longint;       n: integer; begin       f2 : = 1;       f1 : = 2;       n : = 2;             repeat               f : = f1 + f2;               n : = n + 1;               writeln(n,' - ',f);               f2 : = f1;               f1 : = f;       until f > = 1000000;             writeln(n - 1); end.