, !!!!!Мне сегодня сдавать ,молююю

1)92: 4=23 - сторона квадрата                    s=a*a 2)23*23=529  - площадь квадрата.  (площадь бывает в см2, м2 и тд.) ответ: 529

Что бы узнать какова длина одной стороны квадрата мы делим 92 на 4 (стороны квадрата) получаем 23см. , что бы узнать площадь мы   умножаем 23 на 23 и получаем 529см в квадрате : )

Var a: array[1..4] of integer;
    i,j: integer;
begin
   for i:=1 to 4 do read(a[i]);
   for i:=1 to 3 do
   for j:=i+1 to 4 do
   if a[i]<a[j] then swap(a[i],a[j]);
   writeln(a[1]*a[2]+a[3]*a[4]);
end.

11 6 5 19
239

В 10 = 10100100001
В 2 = 30

1. Цикл while должен быть таким:
while x<>0 do begin
 x:=x div 10; k:=k+1; end;

2. В программе формируется массив из 10 элементов:
2, 4, 8, 16, 32, 64, 128, 256, 512, 1024
На экран будет выведено:
1   2
2   4
3   8
...
10  1024