Var n,a,b,c,d,f: integer; begin write('введите трёхзначное число n=',n); a: = n del 100 ; b: = n mod 10; c: = n del 10; a+b+c=s; if(s> =10)(s< =99); else(s); then f: =s del 10; d: =s mod 10; writeln('сумма',s); end. , паскаль не знаю, выбивают ошибку в этой области a: = n del 100 ; b: = n mod 10; c: = n del 10;

Много у тебя косяков, иду по порядку:
1) del ? что это? может ты должен использовать div? =)
2) a+b+c=s;  сразу несколько косяков, во 1-х так не пишут, а пишут s:=a+b+c;, во 2-х у тебя переменная s не определена в Var
3) if(s>=10)(s<=99); 
    else(s); 
    then 
это вообще печально, так не пишут, запись должна написана 
так if(s>=10) and (s<=99) then 

else(s)

ответ  у меня не получился, если скинешь в лс задачу, я тебе ее решить! Удачи =)