Модель распределения памяти фиксированными разделами 1. Исходные данные:
o объем оперативной памяти – 256 Мбайт,
o количество разделов 10,
o размер разделов выбирается исполнителем,
o очередь задач – общая,
o размер задачи – случайный – от 30 до 100 Мбайт,
o количество задач в очереди до 20.
2. Результаты работы модели должны включать:
состояние памяти после поступления очередной задачи

Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.

На примере: lg(125) / lg(5) = 3.  Так как 5³ = 125
lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки.

print "Введите число"
input A
S = log(A) / log(5)
if S = int(S) then
   print "Число ";А; "является степенью числа 5"
   print "Показатель степени "; S
else
   print "Число ";А; "не является степенью числа 5"
end if
end

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var a:=ArrRandom(10,50,100); a.Println(', ');
  var s:=0;
  for var i:=0 to 9 do s+=a[i];
  Writeln('s=',s)
end.

Тестовое решение:
64, 59, 67, 54, 90, 51, 94, 70, 65, 82
s=696

"Школьный" вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
  a:array[1..10] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 10 do begin
    a[i]:=Random(51)+50;
    Write(a[i],' ');
    s:=s+a[i]
    end;
  Writeln;
  Writeln('s=',s)
end.

Тестовое решение:
82 88 94 65 73 94 86 56 91 60
s=789

И, чтобы не быть голословным, современный вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('s=',ArrRandom(10,50,100).Println.Sum)
end.

Тестовое решение:
94 90 70 85 62 58 94 73 67 97
s=790