Написать программу для нахождения суммы 3х случайных чисел на Pascal ABC

var x,y,z,n:integer;

begin

writeln(''Введите трехзначное число);

readln (n);

x:=n div 100;

y:=(n mod 100) div 10;

z:=(n mod 100) mod 10;

n:=x+y+z;

writeln ('Сумма цифр этого числа = ', n);

end.