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.