Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре- Pascal(Паскаль)

uses crt;                                                                          
var
 a:integer;
 c1,c2,c3:byte;
begin
 writeln('BBeDuTe TPex3Ha4Hoe 4ucJIO');
 readln(a);
 c1:=a div 100;
 c2:=(a-c1*100) div 10;
 c3:=a-c1*100-c2*10;
 if c1+c2=c3 then writeln(c1,'+',c2,'=',c3);
 if c2+c3=c1 then writeln(c2,'+',c3,'=',c1);
 if c3+c1=c2 then writeln(c3,'+',c1,'=',c2);
 if c1-c2=c3 then writeln(c1,'-',c2,'=',c3);
 if c2-c1=c3 then writeln(c2,'-',c1,'=',c3);
 if c1-c3=c2 then writeln(c1,'-',c3,'=',c2);
 if c3-c1=c2 then writeln(c3,'-',c1,'=',c2);
 if c2-c3=c1 then writeln(c2,'-',c3,'=',c1);
 if c3-c2=c1 then writeln(c3,'-',c2,'=',c1);
 readln;
end.