. Изобразите в виде блок-схемы алгоритм очистки картофеля солдатом

1) 2⁹ < 800 < 2¹⁰, поэтому для кодирования одного символа нужно 10 бит.
При общем объеме 400 бит количество символов будет равно 400/10=40

2) 2⁴ < 20 < 2⁵, поэтому для кодирования одного символа нужно 5 бит.
Одна строка потребует для кодирования 20×5=100 бит, страница - 20×100=2000 бит, книга - 20×2000 = 40 000 бит = 40 Кбит

3) 6 Кбайт = 6×1024 = 6144 байт = 6144×8 = 49 152 бит
Для кодирования одного символа нужно 49 152/1536 = 32 бита.
Тогда мощность алфавита составит 2³² = 4 294 967 296 символов. Бред какой-то...

Var
  s:string;
  c1,cn:char;
  n:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  Str(n,s);
  c1:=s[1];
  cn:=s[Length(s)];
  if c1>cn then Writeln('Первая цифра больше последней')
  else
    if c1<cn then Writeln('Первая цифра меньше последней')
    else Writeln('Первая и последняя цифры одинаковы')
end.

Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней

Введите натуральное число: 7341423
Первая цифра больше последней

Введите натуральное число: 4624
Первая и последняя цифры одинаковы