Соотнесите условие с таблицей. В таблице заданы ФИО, возраст и рост
учащихся. В столбце С записан возраст.
В столбце D рост. Сколько учеников
могут записаться в секцию если в секцию волейбола набирают ребят ​

Для будівництва сучасного ПАРКУ РОЗВАГ було виділено прямокутну земельну ділянку з сторонами 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.