найдите сумму цифр четырёхзначного числа 1234 на языке паскаль.

var a,b,c,d,x:integer;beginx:=1234;a:=x mod 10;b:=((x mod 100) div 10);c:=((x mod 1000) div 100);d:=x div 1000;x:=a+b+c+d;writeln (x);end.