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

1) c=62) a=53) программу не смогу, прости

3.a = 1     b = aa = 1     b = 1a = a + 2*ba = 3     b = 1если a>2 (да, 3>2) тоc = 2*aa = 3     b = 1   с = 64.a = 2     b = 3пока b>0 (да, 3>0) делатьb = b - 1a = a*2 + 1a = 5     b = 2пока b>0 (да, 2>0) делатьb = b - 1a = a*2 + 1a = 11     b = 1пока b>0 (да, 1>0) делатьb = b - 1a = a*2 + 1a = 23     b = 0пока b>0 (нет, 0=0) цикл законченa = 23     b = 0С1.var a,b,c,p,s: real;beginreadln (a,b,c);p := (a + b + c)/2;s := sqrt (p*(p-a)*(p-b)*(p-c));writeln (s:0:5)end.