1. Построить и записать в виде программы алгоритм вычисления суммы квадратов десяти произвольных чисел, вводимых с клавиатуры в процессе выполнения программы.
2. Вводятся 15 чисел. Определить, сколько среди целых чисел.
3. Вывести все четные числа начиная с числа N и до числа M. Числа N и M задает пользователь.
4. Составить программу, печатающую все делители целого числа в порядке возрастания

На паскале.1)var i, n, sum : integer;beginsum := 0;for i := 1 to 10 dobeginreadln(n);sum := sum + n * n;end;writeln(sum);end.2) var i, sum : integer;n : real;beginsum := 0;for i := 1 to 15 dobeginreadln(n);if n = trunc(n) then sum := sum + 1;end;writeln(sum);end.3) var n, m, i : integer;beginreadln(n, m);for i := n to m doif i mod 2 = 0 then writeln(i);end.4) var n, i : integer;beginreadln(n);for i := 1 to n doif n mod i = 0 then writeln(i);end.