Сумма и произведение цифр случайного трехзначного числа Число вводится с клавиатуры В паскале сделайте пожалуйста

var a,b,c,g:integer;Beginreadln (a);b:=a mod 10;a:= a div 10;c:= a mod 10;a:= a div 10;g:= a mod 10;write (b+c+g);end.