Написать модуль, который генерирует случайное целое трёхзначное число и вычисляет сумму его цифр На экран должно быть выведено полученное случайное число и сумма его цифр

Предыдущий
вопрос Следующий
вопрос

var num,sum,s,err,i : integer;

st : string;

begin

randomize;

num:=100+random(99);

str(num,st);

sum:=0;

for i:=1 to 3 do

begin

val(st[i],s,err);

sum:=sum+s

end;

writeln('Number = ',num);

writeln('Summa = ',sum);

readln;

end.