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

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