Приведите примеры программ с которых создали обычные модели​

Делал как-то уже похожее. Программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода i_max
uses crt;
const
  Nmax=10;
var
  m:array[1..Nmax] of integer;
  i,i_min,i_max:byte;
  min,max:integer;
begin
  ClrScr;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to Nmax do begin
    m[i]:=random(-30,30);
    write(m[i],' ');
  end;
  max:=m[1];
  min:=m[1];
  i_min:=1;
  i_max:=1;
  for i:=1 to Nmax do begin
    if m[i]>max then begin
      max:=m[i];
      i_max:=i;
    end;
    if m[i]<min then begin
      min:=m[i];
      i_min:=i;
    end;
  end;
  writeln;
  writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
  writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
  readln;
end.

var

   i,n, pol: integer;  //pol - количество положительных чисел, n - количество всех чисел

   a,s: real;  //a- вводимое число, s - сумма положительных чисел

begin

 pol:= 0;  //обнуляем счетчик

 s:= 0;  

 writeln('Введите количество чисел');

 readln(n);

 for i:= 1 to n do

 begin

   writeln('Введите число');

   readln(a);

   if a > 0 then

   begin

     s:= s + a;

     pol:= pol + 1;  

   end;

 end;

 writeln('Среднее арифметическое положительных чисел:  ', s / pol);  {среднее арифметическое равно сумме чисел делить на их количество}

end.