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

Program A1;
var A,B,C,D,E:integer;
begin
readln(A,B,C,D);
E:=A+B+C+D;
writeln(e);
end.

если не ошибаюсь так