Подскажите пожалуйста где ошибочка...что-то не пойму..
ЗЫ ошибка 113 в строке else (середина прогр)

Точку с запятой перед Else убери, ее не должно быть...

Убрал...ошибка чуть ниже...else ошибка 85 ";"
Прям в следующем елсе....

А тут у тебя вообще структура нарушена... Что ты хотел сказать вот этим компилятору:

begin
  if y>=d/2 then
    writeln ('Tochka vhodit v'); { <--- Вот это у тебя относится к THEN }

    { Весь этот блок идет ПОСЛЕ Then }
    begin
      if y<=-d/2 then
        writeln ('Tochka vhodit v')
      else
        writeln ('Tochka ne vhodit v');
    end

  else { <--- ЭТО куда относится? К какому If ? }
    writeln ('Tochka ne vhodit v');
end

Хм..там вроде лесенкой надо спускаться ? или нет ? я просто только начинаю в паскале работать..

ЧТо мне надо переделать для того,чтобы прога заработала ?

begin переставить. как минимум...

какой и куда ?) тот что в серединке ?

if y>=d/2 then
    begin
    writeln ('Tochka vhodit v'); 

(почему - см. сообщение volvo)

ПОсмотрите пожалуйста...я набросал..но вроде там начался бред после половины..там где елсы пошли..я просто не представляю как будет закрываться бегин..и там же ставиться елсе..в каком порядке ?
и еще вопрос..после ендов точку с запятой надо ставить ?

конструкция имеет вид

if (условие) then
  begin
  (действия, выполняемые по ветке "да");
  end {обрати внимание - БЕЗ точки с запятой!}
else
  begin
  (действия, выполняемые по ветке "нет");
  end;

; МОЖНО не ставить перед end
; НЕЛЬЗЯ ставить перед else

Во всех остальных случаях - ставить.

Спасибо )) попробую....думаю до завтра че придумаю..