1) Какая задача решается по следующей программе? Program p;
Var a,b,c integer:
begin
radln (a,b);
if a > b then c: = a else c:=b
write (c);
end

А) Нахождение наименьшего из двух чисел a,b
B) Нахождение квадрата разности двух чисел a,b
C) Нахождение наибольшего из двух чисел a,b
Д) Нахождение разности квадратов двух чисел a,b

2) Определить тип синтаксической ошибки в программе
Program A; var b, c: integer;
begin readln(b); if b>=0 then c; = b*b;
else c: = -b*b*b;
writeln ('c=', c);
end.

(Алгоритм записан как в задании, с таким же положением строк)

А) Запрещенный идентификатор
B) Неописанный идентификатор
С) Ошибка в записи оператора
D) Неверная константа
Е) Ожидался BEGIN

2)

Выполняя алгоритм, получаем следующий результат (15 итераций)

1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190  -> 4095
5. 0..4094  -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001

Если лень перебирать вручную, можно воспользоваться программой

var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
  begin
  writeln(k,' ',l,' ',r,' ',x);
  k := k + 1;
  if f < x then r := x - 1
    else l := x + 1;
  x := (l + r) div 2
  end;
writeln(k,' ',l,' ',r,' ',x);
end.

Тут имеется один "подвох" и на него часто ловятся.
Можно воспользоваться функций Power для возведения в степень 1/3, либо применить известную формулу
Но в обоих случаях используется (явно или скрыто) вычисление логарифма. А мы помним, что логарифм определен только для положительного аргумента.
По заданию нужно найти кубический корень из a+b. И этот корень определен для любого вещественного числа, в отличии от логарифма.
Вспоминаем:


И только теперь можно писать программу.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:real; Read(a,b);
  c:=a+b;
  Writeln(sign(c)*power(abs(c),1/3))
end.

Примеры
14.283 -32.17
-2.61524573390822

13.183 -13.183
0