Задано пятизначное число.Найдите числа и сумму цифр пятизначного числа. (Программка на

// - комменты, можешь не писать, это объясненье для тебя

var z,a,b,c,d,e,f: integer;
begin
Write('Введите пятизначное число'); read(z);
a:=a div 10000;                      // число 10-ов тыщ
b:=a mod 10000 div 1000;     // число тысяч 
c:=a mod 1000 div 100;         // число сотен
d:=a mod 100 div 10;             // число 10-ов 
e:=a mod 10;                         // число единиц
f:=a+b+c+d+e;                      // сумма цифр
Writeln('Числа: ', a,b,c,d,e);
Write('Сумма цифр: ',f);
end.