Дано трехзначное число 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.