разложить 4-х значное число в паскале

Ответ:

Изъясненье:

var

 num, num_work:integer;

 a1, a2, a3, a4:integer;

begin

 num:=5678;

 num_work:=num;

 a1:=num_work div 1000;

 num_work:=num_work mod 1000;

 a2:=num_work div 100;

 num_work:=num_work mod 100;

 a3:=num_work div 10;

 num_work:=num_work mod 10;

 a4:=num_work;

 writeln(a1);

 writeln(a2);

 writeln(a3);

 writeln(a4);

end.