1)найти 3 совершенное число(программа+блок схемы) 2)определить 35 простое число(программа +блок схемы) 3)дано: трехзначное число , определить : является ли произведение его цифр трехзначным числом(программа+блок схемы)

Язык паскаль был создан  никлаусом виртом  в 1968—1969 годах после его участия в работе комитета разработки стандарта языка  алгол-68. язык назван в честь французского , , и философа  блеза паскаля, который создал первую в мире механическую машину, складывающую два числа. первая публикация вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания  — построение небольшого и эффективного языка, способствующего хорошему стилю программирования, использующемуструктурное программирование  и структурированные данные.

Const   n = 10;   m = 10; type   matrix = array[1..n, 1..m] of integer; procedure entermas(var mas: matrix); var  i, j: integer; begin   randomize;   for i : = 1 to n do       for j : = 1 to m do           mas[i, j] : = random(100); end; procedure givemas(var mas: matrix); var  i, j: integer; begin   for i : = 1 to n do   begin       for j : = 1 to m do       begin           write(mas[i, j], ' ');       end;       writeln;   end; end; function sumstroki(mas: matrix; i, k: integer): integer; var   j, sum: integer; begin   sum : = 0;   for j : = 1 to m do       sum : = sum + mas[i, j];   sumstroki : = sum - k; end; function element(var mas: matrix): integer; var   i, j, count: integer; begin   count : = 0;   for i : = 1 to n do       for j : = 1 to m do           if mas[i, j] > sumstroki(mas, i, mas[i, j]) then inc(count);   element : = count; end; var  mas: matrix;   sum, max: integer; begin   entermas(mas);   givemas(mas);   writeln('кол-во особых элементов ', element(mas)); end.