Pascal, цикл while или repeat ввести число. определить сумму цифр в первой половине числа . пример, n=123456, результат 6.

Program n1;
var s: string;
sum,i: longint;
begin
sum := 0;
write('введите число: ');
readln (s);
for i := 1 to (length(s) div 2) do
sum := sum + (ord(s[i]) - 48);
writeln ('сумма 1 половины цифр числа равна ',sum);
end.

Если вы уже строки, то вот
program summa;
var
    s: string;
    I, sum: integer;
begin
    sum := 0;
    Readln (s);
    for i := 1 to (length(s) div 2) do
        sum := sum + (ord(s[i]) - 48);
    Writeln (sum);
end.