Маски ввода access.
маски ввода для microsoft access:
1. телефон в формате: 8 (918) 555 55 55
2. адрес в формате: г. владикавказ, ул куйбышева 128, кв. 33
3. эл. почта в формате: (на фото ниже, нельзя вставить)
4. для записи машины в формате а 777

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

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

алг

нач

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

лит ат,бт

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

ввод а

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

ввод б

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

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

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

кц

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

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

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

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

кц

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

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

кон

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

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