30 баллов Составьте программу для нахождения суммы трёх чисел, если желая

var x1,x2,x3:integer;

begin

writeln('Введите три числа');

readln(x1,x2,x3);

if (x1 mod 3=0)or(x2 mod 3=0)or(x3 mod 3=0) then

writeln('Сумма 3-х чисел = ',x1+x2+x3)

else writeln('Модуль разности 3-х чисел = ',abs(x1-x2-x3));

end.

var a,b,c:integer;

begin

read (a,b,c);

if (a mod 3 = 0) or (b mod 3 = 0) or (c mod 3 = 0) then write (a+b+c)

else write (абс(a-b-c))

end.