Втаблице ниже результаты контрольных работ по , и естествознанию трёх учеников гравинова, сави- нова и никонова. вид формулы, необходимой для определе- ния успешности или не успешности сдачи контрольных работ, если считается, что работы сданы успешно, если одновременно выполнены следующие условия: 1) по набрано больше 5 или набрано больше 8 , 2) по естествознанию набрано не меньше, чем по , 3) абсолютное значение разницы по и равно не больше трёх и 4) сумма по всем предметам не ниже 31.

Var a: array of integer;     n,i,max,ind: integer; begin  readln(n);     setlength(a,n);   for i: =0 to length(a) do    readln(a[i]);     max: =a[0];   ind: =0;   for i: =0 to length(a) do     if abs(a[i])> abs(max) then     begin      max: =a[i];       ind: =i;     end;   n: =a[0];     a[0]: =max;   a[ind]: =n;     for i: =0 to length(a) do    write(a[i]: 3);   readln; end.

1. у файлі зберігається блок інформації. 2.  від програми в якому він створюється, редагується,  зберігається.ї 3.  дозволяється використовувати до 255 символів.дозволяється використовувати символи національних алфавітів, зокрема російського.дозволяється використовувати пробіли та інші раніше заборонені символи, за винятком наступних дев'яти: / \ : *? "|.в імені файлу можна використовувати кілька точок. розширенням імені вважаються всі символи, які стоять за останньою крапкою. 4. для зручності і  сортування.