Рассматривается множество целых чисел, принадлежащих числовому промежутку [1072; 8793], которые делятся на 101 но не делятся на 11,13 и 17. Найдите количество таких чисел и среднее арифметическое минимального и максимальное из этих чисел В ответ запишите два этих целых числа: сначала количество, затем среднее арифметическое, если среднее арифметическое - не целое число, то результат округлите в меньшую сторону

Для будівництва сучасного ПАРКУ РОЗВАГ було виділено прямокутну земельну ділянку з сторонами 6км і 7,4 км. Для облаштування ЗООПАРКУ дизайнери виділили половину всієї ділянки. Для побудови МІСТЕЧКА АТРАКЦІОНІВ виділили квадратну частину того, що залишилося від земельної ділянки після створення ЗООПАРКУ. Вимірюючи утворену теріторію, проектувальники визначили, що периметр цього квадрата дор. 4,8км. На облаштування БОТАНІЧНОГО САДУ було отримано теріторію, площа якої становить 15 квадратних кілометрів і 4000 квадрвтних метрів. Визначити площу кожної зони відпочинку. Чи залишилося вільне місце для створення частини містечка, де можна розташувати ДИТЯЧЕ КАФЕ

1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.