Помогите, пожалуйста, Информатика, задания 2 и 3. Паскаль

во 2 просто надо дописать 1 строчку var a,b,c,m,s:integer;beginread(a);b:=a mod 10;c:=a div 10;m:=c mod 10;c:=c div 10;s:=b+c+m;write(s);end.3) var a:integer;beginread(a);if (a mod 5=0) and (a mod 10 <>0) and (a mod 7=0) then write('YES') else write('NO');end.