Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До
запишем условие: N=4, строк=30, символов=70, страниц=5, I-?
решение: вычислим общее кол-во символов К=30*70*5=10500
определим вес одного символа N=2^i, 2^2=2^i, i=2бита
найдем объем информации I=K*i=10500*2=11000 бит
Var
a, b, c: real;
begin
read(a, b, c);
if (a + b > c) and (b + c > a) and (a + c > b)
then write('существует.')
else write('не существует.')
<span>end.</span>