Помогите решить, пожалуйста!

Question

Помогите решить, пожалуйста!

---

Answer 1

Var a,d,e:integer;

begin

readln (a);

d:=a div 10;

e:=a mod 10;

writeln  ('d=',d,'e=',e);

end.