1вопрос-что такое файл? 2 вопрос -что можно узнать о файле по его имени? из каких частей состоит файл? 3 вопрос-найди верное высказывание. 1файл имеет только имя. 2имя файла может быть написано буквами или цыфрами. 3dj второй части имени файла указывается вид информации, хранящейся в нём. 4в компютере файл представлен пиктограммой. 5 в имени файла можно использовлен восклицательный знак 6 файл-это вся информация, котрая хранится в компьютере. мне нужно !

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так