Объем текста составляет 10 кб. На носителе осталось свободным 2048 байт памяти. Сколько килобайт памяти требуется освободить на носителе для размещения текста? Обоснуйте ответ

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