Исходное данное-целое трехзначное число х. выполните для х-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