Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
Как я поняла, нужно написать, как это помогает управлению своими действиями.
Например :
порядок выполнения арифметических действий - правильное решение примера
procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;
Количество пар i, j в котором i или j четное
((1*2)+3)*4*5=100
надеюсь все ок))