Программа паскаль найдите сумму и произведение цифр числа 224 S: 3+2+4=10 p: 3*2*4=24

program sum_proizv;

var a: byte;

ae, ad, as: byte;

begin

a : = 224;

ae : = a mod 10;

ad : = a div 10 mod 10;

as : = a div 100;

writeln ('В числе ', as, 'сотен');

writeln ('В числе ', ad, 'десятков');

writeln ('В числе ', ae, 'единиц');

writeln ('Сотни + десятки + единицы', ae + ad + as);

writeln ('Сотни * десятки * единицы', ae * ad * as);

end.