Помогите!

[CpochHaya_nomoch_Hy)|(Ha]

Вобщем мне сегодня надо решить одну программу в 2 часа дня я её должен здать своему предподователю! программа на диление отразка пополам или метод половинного деления! эту задачу нужно решить в двух экзымлярах на паскале и на с++ что делать незнаю, набрасал кое что а решатся нехочет вот мои наброски!

programm delenie
var a,b,c,t: real
begin
readln (Vvedite a,a);
readln (Vvedite b,b);
readln (Vvedite t,t);
while (t<a) and (t>b)
for i:=0 to 100 do
begin
c: (b-a)/2
if (t>a) and (t<c) then
b:=c
else if (t>c) and (t<b) thena;
a:=c;
end.
writeln ('Tochka t naidena-;t; naotrezke a=;a;; b=;b);
end.


Это что касаема паскаля а на с++ аналогично! Помогить умоляю вас!