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

var a,b,c,g:integer; Begin readln (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.