с информатикой!
Нужно написать программу в PascalABC.
Сябки заранее =)

program svs;

var

a,b:integer;

begin

a:= 1;

b:= 2;

while a > 0 do

begin

b:= b - 2;

a:= a + b;

end;

b:= a + b;

writeln(b);

writeln(a);

end.

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)