Паскаль
Даны 3 числа a, b, c. Если a кратно b, то найти сумму всех чисел, если не кратно, то произведение.

var a,b,c: integer;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

if (a mod b = 0) then  

writeln('a кратно b. Сумма всех чисел: ',a+b+c)

else

writeln('a не кратно b. Произведение всех чисел: ',a*b*c);

end.