Помогите пожалуйста написать программу вычисления суммы цифр четырёхзначного числа в Pascal
begin
ReadString().Select(x -> StrToInt(x)).Sum.Print;
end. ```
program sum_of_digits;
var
number, digit, sum: integer;
begin
// Вводим четырёхзначное число с клавиатуры
write('Введите четырёхзначное число: ');
readln(number);
// Вычисляем сумму цифр четырёхзначного числа
sum := 0;
digit := number mod 10;
sum := sum + digit;
number := number div 10;
digit := number mod 10;
sum := sum + digit;
number := number div 10;
digit := number mod 10;
sum := sum + digit;
number := number div 10;
digit := number mod 10;
sum := sum + digit;
// Выводим результат на экран
writeln('Сумма цифр числа: ', sum);
end.
```
var
a,b,c,d,e: string;
x,y,z,v,cod: integer;
begin
cls;
read(a);
b:=a[1];c:=a[2];d:=a[3];e:=a[4];
val(b,x,cod);
val(c,y,cod);
val(d,z,cod);
val(e,v,cod);
writeln(x+y+z+v);
end.
var k,s:longint;
begin readln(k); s:=0; repeat s:=s+k mod 10; k:=k div 10 until k=0; writeln(s) end.
program sum_of_digits;
var
number, sum, digit: integer;
begin
writeln('Введите четырехзначное число: ');
readln(number);
sum := 0;
digit := number div 1000;
sum := sum + digit;
number := number mod 1000;
digit := number div 100;
sum := sum + digit;
number := number mod 100;
digit := number div 10;
sum := sum + digit;
number := number mod 10;
digit := number;
sum := sum + digit;
writeln('Сумма цифр в числе равна: ', sum);
readln;
end.