составить блок схему и программу нахождения суммы цифр четырехзначного числа

program chisla;var a:integer;beginwriteln('Введите четырехзначное число ');readln(a);if (a>=1000) and (a<=9999) thenbegina:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+(a mod 10);writeln('Сумма цифр этого числа: ',a);endelse writeln('Это не четырехзначное число');end.