Синквейн к слову информатика и система

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

ответ: часть схемы пере информацию-плата.

хвалебный                                                                     

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.