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

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