Спожмилуста)
иформатика, грис : составить буквы р, а, м

Var
 d,m,i,all:integer;
begin
 read(d,m);
 all:=0;
 for i:=12 downto (m+1) do
 begin
  if i=12 then
   all:=all+31;
  if i=11 then
   all:=all+30;
  if i=10 then
   all:=all+31;
  if i=9 then
   all:=all+30;
  if i=8 then
   all:=all+31;
  if i=7 then
   all:=all+31;
  if i=6 then
   all:=all+30;
  if i=5 then
   all:=all+31;
  if i=4 then
   all:=all+30;
  if i=3 then
   all:=all+31;
  if i=2 then
   all:=all+28;
  if i=1 then
   all:=all+31;
 end;
 if i=12 then
   all:=all+31-d;
  if i=11 then
   all:=all+30-d;
  if i=10 then
   all:=all+31-d;
  if i=9 then
   all:=all+30-d;
  if i=8 then
   all:=all+31-d;
  if i=7 then
   all:=all+31-d;
  if i=6 then
   all:=all+30-d;
  if i=5 then
   all:=all+31-d;
  if i=4 then
   all:=all+30-d;
  if i=3 then
   all:=all+31-d;
  if i=2 then
   all:=all+28-d;
  if i=1 then
   all:=all+31-d;
 writeln(all);
end.

       На мое мнение информатика затрагивает все сферы деятельности, поскольку прогресс в компьютерной сфере не стоит на месте, с каждым годом он становится актуальней для всех сфер, так как применяются в обширном круге деятельности. Выполнение логических операций, упрощение действий с приложений, 3d моделирование и другое. Всегда развивается.а в какой степени - так это везде по-разному. 
       Что касается основных составных частей информатики, их три:
1.Технические средства.
2. программное обеспечение.
3 алгоритмическое обеспечение.
       Направление информатики:
1.технически-инженерное архитектуры вычислительного комплекса. 2.математическое обеспечение.
3.Чисто научное (алгоритмическое).