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;
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;