Как на паскале можно задать случайные числа от -14 до 32​

как-то так

i: = random(47) - 14

Var a,b: real; begin readln(a,b);           if a> b then begin writeln('квадрат числа',a,'=',a*a);                                                     writeln('корень числа ',b,'=',sqrt(b));                                       end;           if b> a   then begin writeln('квадрат числа  ',b,'=',b*b);                                                     writeln('корень числа  ',a,'=',sqrt(a));                                       end;                     end.

Изображаем  условие на кругах эйлера. если по запросу "паркур и конкур" ничего не найдено, то тем более ничего не будет найдено по запросу "паркур и конкур и прыжок". остальные области заполняются однозначно, сначала пересечения, потом, чтобы суммарные количества совпали с условием. запросу "паркур или прыжок или конкур" соответствует объединение всех областей, по запросу будет найдено (58 - 32) + (52 - 14) + (99 - 14 - 32) + 14 + 32 + 0 + 0 = (58 + 52 + 99) - (32 + 14 + 0) + 0 = 163 тысячи страниц