Дано трехзначное число. если сумма цифр этого числа превышает 15, то вывести эту сумму. иначе вывести произведение цифр этого числа. необходимо решение на языке паскаль. заранее !

var a: integer;

     s,s1: integer;

begin

  readln(a);

  s:=(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10);

  s1:=(a div 100)*((a mod 100) div 10)*((a mod 100) mod 10);

  if s>15 then writeln(s) else writeln(s1);

end.