Программа паскаль найдите сумму и произведение цифр числа 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.