Question

блин ребят мне очень срочно​

Answer 1

var a: longint;
cif: array [1..5] of integer;
i: integer;
begin
readln (a);
for i:=5 downto 1 do begin
cif [i]:=a mod 10;
a:= a div 10;
end;
for i:=1 to 5 do
writeln (cif [i]);
end.