Помогите пожалуйста написать программу, язык Pascal. Ввести целое положительное число...

Question

Помогите пожалуйста написать программу, язык Pascal.
Ввести целое положительное число трехзначное число N. Разбить это число на разряды (найти число сотен, десятков и единиц). Найти сумму разрядов числа N

Answer 1

Program razrad;
  var n,a,b,c,s: integer;
begin
  write('введите положительное трехзначное число - '); readln(n);
  a:=n mod 10; {последняя цифра}
  b:=(n div 10) mod 10; {средняя цифра}
  c:=n div 100; {первая цифра}
  writeln('сотен - ', с, ', десятков -',b,', единиц - ',a);
  s:=a +b+c:
  writeln('сумма цифр числа - ',s)
end.