Не компилируется Case of

[Dalokoshka]

Здравствуйте, объясните , пожалуйста, в чем может быть ошибка, почему программа не компилируется?
И еще, можно ли писать так, например
r:=x1*x2;
case r of
0 and x1<>x2: writeln ('ku-ku');
0 and x1=x2: write('lja-lja');
end;

[Stilet]

можно ли писать так

Нет нельзя. Case такого не переватит

0:writeln(1 gals atrodas uz x asi');

А открывающая строку ковычка где?
А текст ошибки где? Или опять рассчет на телепаторы?

[tiger]

Все переменные в данном случае должны иметь целый тип:integer. real так нельзя использовать

[Dalokoshka]

Сообщение от tiger

Все переменные в данном случае должны иметь целый тип:integer. real так нельзя использовать

О, спасибо, буду знать =) Возможно, я это читала, но не запомнила, теперь запомню.

Сообщение от Stilet

А открывающая строку ковычка где?
А текст ошибки где? Или опять рассчет на телепаторы?

Ковычку, и правда,забыла. Спасибо.
Текст какой ошибки?

[Stilet]

Текст какой ошибки?

Компиляции. Если конечно у тебя компилятор не глухонемослепой.

[Dalokoshka]

Сообщение от Stilet

Компиляции. Если конечно у тебя компилятор не глухонемослепой.

ошибка была 39, но спасибо, я все уже поняла у меня тип переменных был real, поэтому и не компилировалось.

[Dalokoshka]

Объясните, пожалуйста, а почему эта программа не компилируется? Выдает 26 ошибку, насколько я понимаю это не соответствие типов и функции, если да - то как же разделить константу на число real типа.
Задача программы проверить является ли результат деления константы на переменную Х целым двузначным числом с разными цифрами.

[Stilet]

const A='100';

Может const A=100; ?

R11=R1-trunc(R1);

Ничего не забыл(а)? присмотрись внимательнее

if S1[1]<>S1[2l

Это что за символ?

Выдает 26 ошибку

Окакже. Все поняли что это за ошибка... У тебя все прозрачно как выборы в Думу.

[Dalokoshka]

Кавычки в константе сняла, : в R11 поставила, символ проверила S1[2].
Спасибо. =) А теперь не подскажите, правильно ли написана программа в общем? или можно это сделать проще? а может совсем по-другому?