Напишите программу на языке паскаль. программирование линейный алгоритмов. 1. дано действительное число x. вычислите его квадрат и квадратный корень. нужна именно программа. там: program, ну как то так )

Var x: real; begin read(x); write(sqr(x),' ',sqrt(x)) end.

16. 4 числа: 1915 – не могло: в порядке неубывания число делится на 1 и 915, 915 – не сумма двух цифр 20 – не могло: не делится на два числа в порядке неубывания, только 2 и 0 101 – не могло: не делится на два числа в порядке неубывания, только 10 и 1 1213 – могло, например, для числа 6667 1312 – не могло: в порядке неубывания число делится на 1 и 312, 312 – не сумма двух цифр 312 – могло, например, для числа 1266 1519 – не могло: в порядке неубывания число делится на 1 и 519 или 15 и 19, 519 и 19 – не сумма двух цифр 112 – могло, например, для числа 1066 1212 – могло, например, для числа 6666   10. дан массив [1, 5, 3, 6, 7, 12, 1, 3, 3, 1].  изначально m = 0, при обходе массива если элемент lose[t] больше 3, то к m прибавляется lose[t]. значит, после выполнения программы на экране будет напечатана сумма элементов массива, больших трёх. эта сумма равна 5 + 6 + 7 + 12 = 30.   9. изначально u = 30. затем для каждого i от 1 до 6 из u вычитается значение i, после цикла u равно 30 - 1 - 2 - 3 - 4 - 5 - 6 = 9. это значение будет выведено на экран.   7. путь димы: с: \музыка\хиты – с: \музыка\хиты\ретро – с: \музыка\хиты – с: \музыка\хиты\лучшие  в последней папке он запустил белые_розы.mp3. полное имя файла состоит из пути к папке и имени файла:   с: \музыка\хиты\лучшие\белые_розы.mp3

Const   n = 53; var   x: array[1..n] of integer;   i, t, k, s: integer; begin   randomize;   writeln('элементы массива');   k : = 0; s : = 0;   for i : = 1 to n do   begin       t : = random(56) - 15;       x[i] : = t;       write(t: 4);       if (t < 0) and (t mod 7 = 0) then begin k : = k + 1; s : = s + t end   end;   writeln;   writeln(' найдено элементов- ', k, ', их сумма равна ', s) end. тестовое решение: элементы массива   -8  21 -13    0  -9  28    9  28  23  -2    7  25  26  40 -11    3    8  -6  -1    4  14 -13  10    4  -6    8  19    4  26  33  38  -9  -4  34  36  11    9  -7  21  31  -4 -14 -12  27    7 -12  23  29 -14  22    5  22  40   найдено элементов- 3, их сумма равна -35