Побудувати математичну модель задач.
Задача 1. Іван Петрович у нових штанах сів на щойно пофарбовану табуретку. На його штанах з'явилась квадратна пляма з довжиною сторони a см. Виявилось, що в хімчистку беруть одяг, плями на якому не більші n см2. Визначити, чи вдалось Іванові Петровичу врятувати свої штани?
Задача 2. На одному маленькому квадратному безлюдному острові зі стороною a метрів перебували k Робінзонів. Чи не порушені їх права на житло, якщо на кожного Робінзона повинно припадати n м2 площі острова?

46/2=23 остаток 0

23/2 = 11 остаток 1

11/2 = 5 остаток 1

5/2 = 2 остаток 1

2/2 = 1 остаток 0

Запишем остатки снизу вверх учитывая единицу, которую мы получили при делении 2 на 2: 101110

Для перевода числа из десятичной СС в двоичную нужно:

1. Выполнить деление этого числа и если его результат будет равен или больше 2, то выполнить деление этого результата. Обязательно запиши остаток от каждого деления.

2. Запиши все остатки начиная снизу, начни с результата последнего деления. остальные результаты писать в ответ не нужно.

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.