Я по PascalABC. Напишите программу, которая запрашивает число. Если число шестизначное, то найти сумму его цифр.

Как-то так:

Program nnn;
var a,s,i :integer;
Begin
Write('Число=');
ReadLn(a);
if (a>=100000) and (a<1000000)
then begin
s:=0;
for i :=1 to 6 do
begin
s:=s+ (a mod 10);
a:= a div 10;
end;
WriteLn ('Сумма цифр=',s);
end
else WriteLn('Число не шестизначное');
End.