program lol;
var c,i,n,k:integer;
begin
writeln('Введите простое число = ');
readln(n);
writeln('Вывод: ');
for c:=2 to n-1 do
begin
i:=0;
for k:=1 to c do if (c mod k)=0 then i:=i+1;
if i=2 then
writeln(c);
end
end.

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
  var s:=0; var k:=0;
  foreach var e:integer in a do
    if e>0 then begin s+=e; Inc(k) end;
  if k>0 then Result:=s/k else Result:=1e-100;
end;

begin
  var A:=MatrixRandom(4,4,-50,50); Writeln(A);
  Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
  var B:=MatrixRandom(5,5,-30,30); Writeln(B);
  Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
  var C:=MatrixRandom(4,5,-25,38); Writeln(C);
  Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.

Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200

Объяснение:Временные значения денег

В зависимости от точки зрения, номинальное значение денег может быть различным. Ключевое понятие здесь — временное значение денег. Вычисления, производимые над денежными суммами, могут производиться в настоящем или в будущем. Выбор типа вычислений основывается на

том, что сумма денег увеличивается, поскольку постоянно поступают начисления по процентам. Другими словами, вложив

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

Например, предположим, что богатенький заокеанский

дядюшка решил подарить вам деньги, причем нужно выбрать

один из вариантов.

Получить 80 000 руб. сегодня.

Получить 95 000 руб. через год.

Получить 120 000 руб. через пять лет.

Получать 1 500 руб. каждый месяц на протя