Помогите с информатикой! 10 класс!!! Кто разумеет?

3.
a = 1     b = a
a = 1     b = 1
a = a + 2*b
a = 3     b = 1
если agt;2 (да, 3gt;2) то
c = 2*a
a = 3     b = 1   с = 6

4.
a = 2     b = 3
пока bgt;0 (да, 3gt;0) делать
b = b - 1
a = a*2 + 1
a = 5     b = 2
пока bgt;0 (да, 2gt;0) делать
b = b - 1
a = a*2 + 1
a = 11     b = 1
пока bgt;0 (да, 1gt;0) делать
b = b - 1
a = a*2 + 1
a = 23     b = 0
пока bgt;0 (нет, 0=0) цикл окончен
a = 23     b = 0

С1.
var a,b,c,p,s: real;
begin
readln (a,b,c);
p := (a + b + c)/2;
s := sqrt (p*(p-a)*(p-b)*(p-c));
writeln (s:0:5)
end.

1) c=6
2) a=5
3) программку не смогу, прости