Різниця між максимальним и мінімальним значенням вибірки

Точная по техническому : var x,y: integer; begin writeln('введите два числа'); readln(x); readln(y); if (x< 1000000001) and (y< 1000000001) and (x> 0) and (y> 0) then writeln('сумма чисел =',x+y) else writeln('диапазон чисел неверный'); end. если вдруг вам поверит учитель, можете перевыполнить поставленную : var x,y: integer;               s: string; begin randomize; writeln('взять ли числа случайными? ответ да или нет'); readln(s); if (s='да') or (s='да') or (s='да') or (s='да')  then begin x: =random(1000000000); y: =random(1000000000); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y);   end else  begin writeln('введите два числа'); readln(x); readln(y); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y); end; end.

Причины: 1) зависть соседних к более успешным племенам, войны за добычу; 2) желание ограбленных племен отомстить;
Последствия: 1) формирование из ополчения дружины, которая занималась только войной; 2) появление союза племен во главе с вождем; 3) расселение союзов племен на новые территории; 4) переход к оседлому пашенному земледелию или кочевому скотоводству.
Вывод: причиной появления множества разных народов стало то, что переселяясь, родственные племена и союзы племён постепенно начали осознавать своё особенное родство, отличие от местных жителей. Чтобы подчеркнуть это отличие, все племена, говорившие на схожем языке, рассказывавшие одни и те же мифы, ведущие похожее хозяйство, стали называть себя единым именем.