Даю 25 баллов.Помогите с информатикой составить программы в Паскале. Буду благодарна

1.  var    n: integer; begin   read(n);   write(n div 100 + n div 10 mod 10 + n mod 10) end. 2. var   d: real;   n: integer; begin   read(d);   n := round(d * 100);   write(abs(n div 1000 + n div 100 mod 10 - n div 10 mod 10 - n mod 10)); end. 3. var   d: real;   n: integer; begin   read(d);   n := round(frac(d) * 1000);   write((n div 100 + n div 10 mod 10 * 2 + n mod 10) / 2); end.