нарисовать таблицу Пациент и указать в нем все поля, типы данных и первичный ключ. ​

радиосвязь!

попов!

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.

одна из возможных форм курсора - прямая

векторная графика масштабируется без потери качества изображения, но в растровой графике возможно использование более богатой цвтовой палитры.