Какоое количество информации несёт в себе сообщение о том, что нужная вам книга находится на одной из 64 полок ?

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.