решить через !
var a,b,x,s,p: integer;
begin writeln(' ввести х');
readln(x);
тут нужно что то написать ;
writeln(' сумма цифр=' ‚s);

var

 a, b, x, s, p: integer;

begin

 writeln(' Ввести х');

 readln(x);

 s := 0;

 x := Abs(x); { защита от ввода отрицательных }

 while x > 0 do

 begin

   s := s + x mod 10;

   x := x div 10

 end;

 writeln(' Сумма цифр=', s);

end.