Дано трехзначное число z. найти сумму его цифр используя div,mod.

Var
x, y, z, n: Integer;

begin
ReadLn(n);
z := n mod 10;
y := (n div 10) mod 10;
x := n div 100;
WriteLn('Первое: ', x);
WriteLn('Второе: ', y);
WriteLn('Третье: ', z);
end.