Исходное данное-целое трехзначное число х. выполните для х-248 и х-789 следующий алгоритм:
а:=х div 100
b:=x mod 100 div 10
c:=x mod 10
s:=a+b+c
пожалуйста

var a,b,c,s,x: integer;begin  write('x = ');  readln(x);  а:=х div 100;  b:=x mod 100 div 10;  c:=x mod 10;  s:=a+b+c;  writeln(s);end.При вводе  x = 248 будет напечатано  14,   при вводе x = 789 будет напечатано 24