Поместятся ли две одинаковые книги в кейс размерами X< Y

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.

readln (a, b);     -  вводим значения а в

c: =(a+b) * (b-a);   - выполняем уравнение

    writeln (c) -  выводим результат

в итоге получается

с=(7+8)*(8-7)

c=15

соттветственно будет получен результат 15 на экране.

program amoeba;   var i,count: integer;   begin  i: =3; //количество часов  count: =1; //количество амеб  while i < = 24 do  begin  count: =count*2; //каждые 3 часа количество амеб удваивается  writeln(i,' hours: ',count); //выводим кол-во часов и амеб  i: =i+3;   end;   readln;   end.