[lxa85]

asus a9rp, на память не помню, но проверь конструкцию
case <переменная> of
Операторные скобки какие? end case; помоему нужен. Help тебя спасет.

Код:

var Item:Integer;
begin
readln(Item);
case Item of 
    1: Writeln('1');
    2: Writeln('2');
    else: witeln('not 1 or 2');
end case;
end.

Т.е. ты должен четко отделить оператор множественного выбора case от оператора условия if

Он жалуется на "If a=10 Then" »

Как именно жалуется?

По алгоритму, ИМХО сложновато для анализа "на вскидку", одно-буквенные переменные мешают анализу. Отсутствие комментариев тоже не способствует.