Найти сумму цифр ab + cd числа abcd

Задача: 

Вводится четырёхзначное число (abcd). Вывести сумму ab + cd.

Алгоритм решения задачи: 

В данном случае проще обойтись без цикла, т.к. известна разрядность числа.

  1. Для извлечения цифры из старшего разряда, надо число нацело поделить на 1000. (Или найти остаток от деления на 10000.)
  2. Для извлечения второго (по старшенству) разряда, сначала делим число на 100, далее избавляемся от первого разряда, найдя остаток от деления на 10.
  3. Третья цифра извлекается также как вторая за исключением того, что делить нацено надо на 10.
  4. Четвертая (последняя) цифра извлекается как остаток от деления исходного числа на 10.
Программа на языке Паскаль: 

var
    n, a, b, c, d: integer;
begin
    readln(n); // for example 8123
    a := n div 1000; // 8
    b := (n div 100) mod 10; // 81 mod 10 = 1
    c := (n div 10) mod 10; // 812 mod 10 = 2
    d := n mod 10; // 3;
    writeln('ab+cd=',a*b,'+',c*d,'=', a*b+c*d);
 
readln;
end.

Комментарии

почему все программы пишутся без

nameprogram
uses Crt;
...как-то так

Потому что пишутся во

Потому что пишутся во FreePascal.