Решите, пожалуйста B и C

Question

Решите, пожалуйста B и C

---

Answer 1

program C;

var a:array [1..4] of integer;

var x,i:integer;

begin  

randomize;

x:=random(0,1000);

writeln('полученое  число ',x);

for i:=1 to 4 do begin

a[i]:=x mod 10;

x:=x div 10;

end;

write ('его цифры ');

for i:=4 downto 1 do

if a[i]>0 then write(a[i],', ');

end.