DuleProg.pas

// zadatak 2 -------------------------------------------------------------------------------------------------------------------
program prost;
var
  n : array[1..100] of integer;
  x, i, zbirProstih : integer;
  
// funkcija prost
function prost (x : integer) : integer;
var
  i, brojac : integer;
begin
  if x > 2 then
  begin
    for i := 2 to x do
    begin
      if x mod i == 0 then
        brojac := brojac + 1;
    end;
    if brojac == 1 then
      prost := x;
    else
      prost := 0;
  end else
    prost := x;
end;

// glavni program

begin
  readln(x);
  // unos niza i ispitivanje prostih
  for i := 0 to x do 
  begin
    readln(n[i]);
    zbirProstih := zbirProstih + prost(n[i]);
  end;
  writeln('Zbir prostih je: ', zbirProstih);
end.

// zadatak 3 -------------------------------------------------------------------------------------------------------------------

program prosecna_vrednost;
var
  prosecna : real;
  n : array[1..100] of integer;
  
// funkcija koja nalazi prosecnu vrednost niza
function prosecnaF (x : integer) : real;
var
  i, zbir : integer;
begin
  zbir := 0;
  for i := 0 to x do
    zbir := zbir + n[i];
  prosecnaF := zbir / x;
end;

// glavni program

begin
// unos niza
  for i := 0 to x do 
    readln(n[i]);
// ispitivanje brojeva koji su veci od prosecne vrednosti
  prosecna := prosecnaF(x);
  for i := 0 to x do
    if n[i] > prosecna then
      writeln(n[i]);
end.