Microsoft accessв базе данных зоопарка должны храниться данные о животных (они различаются по ) и сотрудниках, которые имею доступ к каждому животному. также хранится информация о том, сколько раз в день нужно кормить каждое животное и сколько кг корма требуется каждому из них в день. разработчикам
грамотно построить многотабличную базу данных.

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

var s,x,n,i: integer;

begin

  read(x,n);

s: =1;

  for i: = 1 to n do

      s: =s*x;

  writeln(s);

end.

program dl9_aniasss;

var c: real;

begin

writeln ('vvedit c');

readln (c);

c: =c*2;

writeln (c,'*2=',c);

readln

end. 

и /н -п верхнее подчёркиванием \ш_