Буду за подмогу по лабораторным и самостоятельным работам:

1)пользователь вводит целое положительное число m. найти наименьшее
натуральное число k, при котором сумма 1^2 + 2^2 + 3^2 + + k2 > m. вывести на экран таблицу значений сумм при всех k от 100 до 120.

2)числа пелля определяются так: первое число равно 1, второе равно 2,
каждое следующее равно a(n)=2·a(n-1)+a(n-2). составить программу, которая находит сумму первых k чисел пелля (k – задается пользователем)

3) составить программу, которая находит наименьшее из трёх целых чисел,
введенных пользователем. если таких чисел несколько, выдавать соответствующие сообщения.

4) пользователь вводит целые числа x и y. составить программу, которая
определяет, принадлежит ли точка с координатами (x,y) заштрихованной
области на рисунке.

4 байт V 24 бит ⇒ 4 · 8 бит V 24 бит ⇒ 32 бит > 24 бит

1000 бит V 1 килобайт ⇒ 1000 бит < 1 · 1024 байт

250 байт V 0.25 килобайт ⇒ 250 байт V 1/4 · 1024 ⇒ 250 байт < 256 байт

1 мегабайт V 1000 килобайт ⇒ 1024 килобайт > 1000 килобайт

8192 бит V 1 килобайт ⇒ 8192 бит > 1024 бит

8 килобайт = 8 · 1024 байт = 8192 байт

8 байт = 8 · 8 бит = 64 бит

64 килобайт = 64 / 1024 мегабайт = 0.06 мегабайт

1024 мегабайт = 1 · 1024 гигабайт

32 мегабайт = 32 · 1024 килобайт = 32768 килобайт

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.