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

Решение :   поле фамилия, имя, отчество, образование – текстовые; поле дата рождения – поле типа даты/время;     поле членство в профсоюзе – логическое;     поле пол может быть как текстовым, так и логическим (например, 1 – жен., 0 –

Program pr2; uses crt; var m,n,i,j,k,l: integer; mas: array[1..99,1..99] of integer; masb: array [1..99] of integer; begin clrscr; write('vvedite m'); readln(m); write('vvedite n'); readln(n); writeln('vvedite massiv mxn') ; for i: =1 to m do for j: =1 to n do begin write('mas[',i,',',j,']= '); readln(mas[i,j]); end; for i: =1 to m do begin k: =mas[i,1]; l: =mas[i,1]; for j: =1 to n do begin if k < mas[i,j] then k: =mas[i,j]; if l > mas[i,j] then l: =mas[i,j]; end; masb[i]: =k-l; end; for i: =1 to m do begin for j: =1 to n do write(mas[i,j],' '); writeln('result = ',masb[i]); end; readln(i) end.

Var  a, b, c, d: real;   x1, x2: real; begin   write('введите а: '); readln(a);   write('введите b: '); readln(b);   write('введите c: '); readln(c);   d : = sqr(b) - (4 * a * c);   if (d > 0) then   begin     x1 : = (-b + sqrt(d)) / (2 * a);     x2 : = (-b - sqrt(d)) / (2 * a);     writeln('x1=', x1);     writeln('x2=', x2);   end  else     if(d = 0) then   begin     x1 : = b / (2 * a);     write('x1=', x1, 'x2=', x1);   end    else   writeln('корней нет'); end.