Дано трехзначное число. Найти число единиц в нем, число десятков в нем, число сотен в нем, сумму его цифр, произведение его цифр

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 program z; uses crt; var s, p, b, a, a1, k, k1:integer; c:array [1 ... 100] of integer; begin clrscr; writeln ('Введите число'); readln (b); a:=b; p:=1; s:=0; k:=0; while a0 do begin a1:=a mod 10; k:=k+1; c[k]:=a1; s:=s+a1; p:=p*a1; a1:=a div 10; a:=a1; end; writeln ('Сумма цифр числа ', b,' - ', s); writeln ('Произведения цифр числа ', b,' - ', p); writeln ('Число единиц в числе ', b,' - ', c[1]); if k>1 then writeln ('Число десятков в числе ', b,' - ', c[2]) else writeln ('В числе ', b,' нет десятков!'); readln; end.