Дано трёхзначное число.найти: а) число единиц в нем; б) число десятков в нем; в)сумму его цифр; г) произведение его цифр

Var a:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
writeln('Число единиц в числе ',a, '  равно: ',abs (a mod 10));
writeln('Число десятков в  числе ',a, '  равно: ',abs (a mod 100 div 10));
writeln('Сумма цифр числа ',a, ' равна: ', abs (a div 100) + abs (a mod 100
div 10) + abs (a mod 10));
writeln('Произведение цифр числа ',a, ' равно: ', abs (a div 100) * abs (a
mod 100 div 10) * abs (a mod 10))
end.

1)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.

2)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.

1.
алг
нач цел X
ввод X
если X>0 то 
X:=X+1
все
вывод X 
кон

2.
алг
нач цел X
ввод X
если X>0 то
X:=X+1
иначе
X:=X-2
все
вывод X 
кон

3.
алг
нач цел X
ввод X
 если X>0 то
  X:=X+1
 все
 если X<0 то
  X:=X-2
 все
 если X=0 то
  X:=10
 все
вывод X
кон

4.
алг
нач цел X,Y,Z,N
ввод X,Y,Z
N:=0
если X>0 то
N:=N+1
все
если Y>0 то
N:=N+1
все
если Z>0 то
N:=N+1
все
вывод N
кон

5.
алг
нач цел X,Y,Z,N,K
ввод X,Y,Z
N:=0
K:=0
если X>0 то
N:=N+1
иначе
K:=K+1
все
если Y>0 то
N:=N+1
иначе
K:=K+1
все
если Z>0 то
N:=N+1
иначе
K:=K+1
все
вывод N,K
кон

Самые наиболее простые варианты выбрал думаю в самый раз