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

program A1;var A,B,C,D,E:integer;beginreadln(A,B,C,D);E:=A+B+C+D;writeln(e);end.если не ошибаюсь так