Для пе­ре­да­чи сек­рет­но­го со­об­ще­ния ис­поль­зу­ет­ся код, со­сто­я­щий только из латинских букв (всего используется 25 различных символов). При этом все сим­во­лы ко­ди­ру­ют­ся одним и тем же (минималь­но воз­мож­ным) ко­ли­че­ством битов. Опре­де­ли­ ин­фор­ма­ци­он­ный объём со­об­ще­ния длиной в 280 сим­во­лов.

1) Отрезаем 3 квадрата со стороной 131, остается прямоугольник со сторонами 131*32

2) Отрезаем 4 квадрата со стороной 32 ,(131-4*32 = 3), остается прямоугольник со сторонами 3*32

3) Отрезаем 10 квадратов со стороной 3 (32-10*3=2), остается прямоугольник со сторонами 2*3

4) Отрезаем квадрат со стороной 2 ,(3-2*1) остается прямоугольник со сторонами 1*2

5) Разрезаем на 2 квадрата со сторой 1

Итого получили: 3 квадрата 131*131; 4 квадрата - 32*32; 10 квадратов - 3*3,

1 квадрат - 2*2; 2 кадрата - 1*1

Точная задача по Техническому Заданию:
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.