Program n_2;
const pi=3.14;
var r,c,s: real;
begin
writeln('Вычисление длины окружности и площиди круга');
write('Введите r>>);
readln(r);
c:=2p*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end.

Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.

Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).

алг

нач

цел а,б,н,ас=0,бс=0

лит ат,бт

вывод 'введите целое трёхзначное число: '

ввод а

вывод 'введите целое четырёхзначное число: '

ввод б

ат := цел_в_лит(а)

нц для н от 1 до длин(ат)

ас := ас + Цел(ат[н],0)

кц

вывод 'сумма цифр трёхзначного= ', ас, нс

бт := цел_в_лит(б)

нц для н от 1 до длин(бт)

бс := бс + Цел(бт[н],0)

кц

вывод 'сумма цифр четырёхзначного= ', бс, нс

вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б

кон

По синтаксису Паскаля, между блоками if и else не должна стоять точка с запятой. Иначе компилятор сочтёт это за два раздельных блока и выдаст ошибку компиляции.
if (x >= 0) and (...) then writeln('Входит')
else writeln('Не входит');
То есть, после writeln('Входит') не должно быть точки с запятой.
Только тогда в блоке "else" не нужны условия ("else (...) and (...) ..." выдаст ошибку компиляции).

Ещё можно "else" заменить на "if", и получится два раздельных if-блока. Скорее всего, это и имел в виду компилятор.