Ответ:

1. Ошибка после begin: c не может быть дробным числом по условию.

2.

А - 2

Б - 4

В - 1

Г - 3

3.

var k, a, x:Integer;

begin

k:=0;

a:=1;

readln(x);

while a < x do

begin

k:=k+3;

a:=a*2;

end;

writeln(k);

end.