Составьте программу на языке паскаль: найти сумму цифр трёхзначного числа.

Var a,a1,a2,a3,s;
begin
s:=0;
readln (n);
a1:=a div 100;
a2:= a div 10 mod 10;
a3:=a mod 10;
s:=a1+a2+a3;
write (s);
end.