1. Создайте таблицу, содержащую приведенную ниже информацию. Определите ее тип. Имеются сведения о семи пациентах поликлиники. Трое из них – пенсионеры. Это Быков, возраст которого - 63 года, Власова - 71 год и Захарова 57 лет. Возраст других пациентов: Анохин 35 лет, Гришина - 23 года, Данилов - 29 лет, Калинин 40 лет. Каждый пациент относится к определенному участку, который обслуживает поликлиника. к1-му участку относятся: Быков и Данилов; ко 2-му участку – Власова, Захарова и Калинин; к 3-му участку – Анохин и Гришина. Калинин посещал врача 1 апреля и 3 апреля. 1 апреля ему был поставлен диагноз «ОРВИ» (острое респираторно-вирусное заболевание), а 3 апреля - диагноз «Бронхит». Быков посещал врача 1 апреля с диагнозом «ОРВИ» и 5 апреля — «Здоров». Власова посещала врача 3 апреля с диагнозом «Грипп», а 5 апреля ей был поставлен диагноз «Пневмония». Анохин посещал врача 3 апреля с диагнозом «Холецистит» и 5 апреля - «Здоров». Гришина посетила врача 4 апреля с диагнозом «ОРВИ». Данилов посетил врача с диагнозом «Грипп» 3 апреля. Захарова посетила врача 4 апреля с диагнозом «ОРВИ».

//Линейное уравнение от одной переменной вида ax+b=0
procedure lin1(a,b: real; var x: real);
  begin
    x:=-b/a;
  end;

//Линейное уравнение двух переменных вида ax+by+c=0
//имеет бесконечное множество решений (корней)
procedure lin2(a,b,c: real);
  var x,y: real; 
  n,i: integer;
  begin
    write ('Сколько пар корней вы хотите получить? ');
    readln (n);
    for i:=1 to n do begin
      write ('Введите x=');
      read (x);
      y:=(-c-a*x)/b;
      writeln ('   y=',y);
    end;
  end;
  
var
  a,b,c,x,y: real;
  n: integer;
begin
  write ('Сколько переменных в уравнении - 1 или 2? ');
  readln (n);
  if n=1 
    then begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите свободный коэффициент b=');
      readln (b);
      lin1(a,b,x);
      writeln ('x=',x);
    end
    else begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите коэффициент при y: b=');
      readln (b);
      write ('Введите свободный коэффициент c=');
      readln (c);
      lin2(a,b,c);
    end;
end.
пример 1
Сколько переменных в уравнении - 1 или 2? 1
Введите коэффициент при х: а=3
Введите свободный коэффициент b=9
x=-3
пример 2
Сколько переменных в уравнении - 1 или 2? 2
Введите коэффициент при х: а=2
Введите коэффициент при y: b=2
Введите свободный коэффициент c=-4
Сколько пар корней вы хотите получить? 3
Введите x=0
   y=2
Введите x=2
   y=0
Введите x=-2
   y=4