Ошибка

[Костян 98]

Что означает Error statement? И чем это вызвано?

[Alex11223]

Ошибка оператора.
Чтобы сказать чем вызвано, надо увидеть код.

[Костян 98]

А код обязательно печатать? Он не копируется.

[Alex11223]

Ну если откроете ваш мозг для входящего телепатического соединения, то можно не копировать)
А почему не копируется? Или копируется, но на форум не вставляется?
Если из IDE почему-то не копируется, то открой .pas файл блокнотом.

[Stilet]

А код обязательно печатать? Он не копируется.

Хотя бы строку на которой ошибка вылезает покажи.

[Костян 98]

Var
A, B:integer;
begin
Write('‚ўҐ¤ЁвҐ ЇҐаў®Ґ зЁб«®: ');
Readln(A);
Write('‚ўҐ¤ЁвҐ ўв®а®Ґ зЁб«®: ');
Readln(B);
if A>B then
Writeln(A,'>',B);
else
Writeln(,A'Ў®«миҐ зҐ¬',B);
if A<B then
Writeln(A,'<',B);
else
Writeln(A,'*Ґ ¬Ґ*миҐ',B);
if A=B then
Writeln(A,'=',B);
else
Writeln(A,'*Ґ а*ў*®',B);
Readln;
end.

[Valio]

if A>B then
Writeln(A,'>',B);
else

Перед else не ставят ;

Дальше не смотрел. Укажи строки где стопорится компилятор, а то так лениво вчитываться.

[Костян 98]

В начале первого ELSE компилятор матерится.

[Костян 98]

Спасибо все получилось!!! Не подскажите зачем нужен Uses Crt и файл .pas.

[Alex11223]

Перед else не нужно ; и в 1 месте writeln(, A '.... (правильно writeln(A, '......).

var
  A, B: integer;

begin
  Write('‚ўҐ¤ЁвҐ ЇҐаў®Ґ зЁб«®: ');
  Readln(A);
  Write('‚ўҐ¤ЁвҐ ўв®а®Ґ зЁб«®: ');
  Readln(B);
  if A > B then
    Writeln(A, '>', B) 
  else
    Writeln(A, 'Ў®«миҐ зҐ¬', B);
  if A < B then
    Writeln(A, '<', B)
  else
    Writeln(A, '*Ґ ¬Ґ*миҐ', B);
  if A = B then
    Writeln(A, '=', B)
  else
    Writeln(A, '*Ґ а*ў*®', B);
  Readln;
end.