определите значения имеющихся переменных после выполнения следующих операторов присваивания :
N:=7005;
S:=N mod 10
N:=N div 10
S:=S+N mod 10
N:=S+N div10
S:=S+N mod 10
N:=N div 10
S:=S+N