напиши конкретней, что должна делать программа.

programm delenie // ; забыл
var a,b,c,t: real // ; забыл
begin
readln (Vvedite a,a); // не правильно. Writeln('Vvedite a'); Readln(a);
readln (Vvedite b,b); // не правильно. Writeln('Vvedite b'); Readln(b);
readln (Vvedite t,t); //зачем это вводить? если её нужно найти..не правильно
while (t<a) and (t>b)
for i:=0 to 100 do // что должно делать это условие? i не описано
begin
c: (b-a)/2 // c:=
if (t>a) and (t<c) then
b:=c // забыл ;
else if (t>c) and (t<b) thena; // then, ; не ставится
a:=c;
end. // . ставится в конце, тут нужно ;
writeln ('Tochka t naidena-;t; naotrezke a=;a;; b=;b); {не так. writeln ('Tochka t naidena-'t', na otrezke a='a', b='b'};
end.


i не описан в Var, добавь в Var i:integer;

// Паскаль уже плохо помню, так что возможны ошибки, проверить не где(