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

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

Задать свой вопрос
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; 1-ая цифра
  writeln('сотен - ', с, ', 10-ов -',b,', единиц - ',a);
  s:=a +b+c:
  writeln('сумма цифр числа - ',s)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт