Дано трехзначное число.Найти сумму цифр числа.(Написать программу на языке Паскаль)

program sum_numerals;var a,b,c,x,s:INTEGER;beginwrite(\'Enter x (three digits) \');readln(x); a:=x div 100; // Число сотен b:=x mod 100; // Остаток после деления на 100 b:= b div 10; // Число целых десятков в остатке c:=x mod 10; // Число единиц s:=a+b+c; writeln(s)end.