Досконалими давні греки називали числа, що дорівнюють сумі всіх дільників, окрім самого числа (6=1+2+3). Складемо програ-
му для перевірки, чи є введене число досконалим.
Загальний алгоритм такий:
1) ввести число k;
2) обчислити суму дільників, крім самого числа k;
3) якщо сума дільників дорівнює числу k, то повідомити, що k
І досконале.
Щоб знайти суму дільників числа (див. коментарі до програми),
можна перебрати цілі числа від 1 до половини k, щоразу переві-
ряючи, чи є число дільником k. Знайдені дільники слід додавати
до змінної ѕum. Oписаному алгоритму відповідає така програма:
Написати програму.

1)2^2=4

2)как я понимаю, это некоторые типы имеющие ключ и значение в одной связке. Набор таких пар будет словарем

3)не знаю какие из них дополнительные.

*сложности языка, падежи, окончания,времена

*пордок слов в предложениее

*контекстный или литературный перевод, чтоб не терялось значение написаного

4)подразумевается электронный переводчик?

все перечисленное в п3, человек то может а машина нет

5)потому что это рисунок, а не текст

6)перевод картинки в текстовую информацию, если этот текст там конечно есть

program z_array;
uses crt;
var a:array[1..100,1..100] of integer;
m,n,i,j:byte;
sum:integer;
begin
clrscr;
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите количество столбцов матрицы');
readln(m);
writeln('Введите элементы матрицы');
for i := 1 to n do
for j := 1 to m do
begin
write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln('Данная матрица');
writeln;
sum := 0;
for i := 1 to n do
begin
for j := 1 to m do
begin
write(a[i,j]:5);
if (j < i) then
sum := sum + a[i,j];
end;
writeln;
writeln('Искомая сумма = ',sum);
readln;
end.