Найдите ошибки

[zircul]

program TEST1B;
var
   X,I,J: integer;
   A,B  :Boolean;
begin
   readln  (I,J);
   ifI=0then A:=False;
   if J>0and J<=9 ten A:=True;
   if A then B:=True;else B:=False;
   if A orB then X:=0;
   if not B then if J mod 2=0 then X:=J div 2
              else X:=J;
   if I>1 then I:=I-1;X:=I else X:=J;
end.

[Mad_Cat]

компилится? если нет то ошибки паскаль подскажет
если да то их(ошибок) нет

[zircul]

в этом примере 6 синтаксических ошибок и 1 логическая, которую компилятор не выявляет

[Mad_Cat]

в этом примере 6 синтаксических ошибок и 1 логическая, которую компилятор не выявляет

у нас здесь не что7 где7 когда7
про синтаксические сам знаешь-исправь
про логическую -- как можно править чужую(заметь) прогу если не знаешь чего она даже приблизительно должна делать

[Niro]

zircul

Я честно говоря не понимаю - Зачем ты это спрашиваешь?
Желаешь проверить знания форумчан?

[evg_m]

Я честно говоря не понимаю - Зачем ты это спрашиваешь?

предлагает тех, кто не знает ответа, не пускать на форум дальше ветки прочее.
P.S. включая его самого. Если спрашивает, то не знает.

[Jesus56]

у тебя тем более еще не стоит = перед integer!!!

[fenix-elite]

у тебя тем более еще не стоит = перед integer!!!

Оо

ТС, хотя бы напиши, что она должна делать. Не телепаты все-таки

[Jesus56]

Сообщение от fenix-elite

Оо

ТС, хотя бы напиши, что она должна делать. Не телепаты все-таки

полностью с тобой согласен!!!

[ROMA2PVT]

у тебя тем более еще не стоит = перед integer!!!

Оооо...Дельное замечание