Помогите решить задачу с оператором MOD

[LenaPrikolava]

В условии:
Если (A+B+C) делится на 3 с остатком 1, то ...
если с остатком 2, то...
если без остатка, то...
Я пишу: if (A+B+C) mod 3=1 then ...
if (A+B+C) mod 3=2 then ...
if (A+B+C) div 3 then ...

Программа выдает ошибку ( "не нравится "="), я понять не могу что исправить. Объясните пожалуйста.

[Sazary]

Покажите полный код.

ps Заключите его в теги CODE ("#" на панели в окне редактирования).

[LenaPrikolava]

Условие задачи полностью:
Если (A+B+C) делиться на 3 с остатком 1, то X=A-B, Y=B-C, Z=A-C; если с остатком 2, то X=A+B, Y=B+C, Z=A+C; если без остатка, то X=A, Y=2B, Z=3C.

[Sazary]

LenaPrikolava, Выложите код программы.
Вы пишете:

Программа выдает ошибку

Как ее можно найти, если отсутствует код?

[LenaPrikolava]

Код ошибки : "Error 41: Operand typea do not match operator"

[LenaPrikolava]

program 1;
uses crt;
var a,b,c,x,y,z,u:real;
begin clrscr;
write ('input A:') ; readln (a);
write ('input B:'); readln (b);
write ('input C:'); readln (c);
if (A+B+C) mod 3=1 then X=A-B; Y=B-C; Z=A-C ;
if (A+B+C) mod 3=2 then X=A+B; Y=B+C; Z=A+C;
if (A+B+C) div 3 then X=A; Y=2B; Z=3C;
writeln ('x=';x=3:2:);
writeln ('y=';y=3:2:);
writeln ('z=';z=3:2:);
writeln ('u=';u=3:2:);
readkey;
end.

[Sazary]

У вас A,B,C - типа real. Сделайте их целыми.
И в имени программы первым символом должна быть буква.
Также не 2B, а 2*B.
И несколько инструкций нужно заключать в begin-end

program d1;
uses crt;
var x,y,z,u:real;
a,b,c : integer;
begin clrscr;
write ('input A:') ; readln (a);
write ('input B:'); readln (b);
write ('input C:'); readln (c);
if (A+B+C) mod 3=1 then begin X:=A-B; Y:=B-C; Z:=A-C ; end;
if (A+B+C) mod 3=2 then begin X:=A+B; Y:=B+C; Z:=A+C; end;
if (A+B+C) mod 3=0 then begin X:=A; Y:=2*B; Z:=3*C;end;
writeln ('x=',x:3:2);
writeln ('y=',y:3:2);
writeln ('z=',z:3:2);
writeln ('u=',u:3:2);
readkey;
end.

[LenaPrikolava]

Спасибо Вам большое, всё, теперь разобралась.