Запишите выполнение приведенного фрагмента для табличной величины значениями элементов который являляются числа 2; -2 ;3; 0,25; -4 .
dob:= 1;
for i :-1 to 5 do dob :- dob * a[i]

2. Запишите выполнение приведенного фрагмента программы для табличной величины, значениями элементов которой являются числа: 0,5 ; -3; 2; -1,6
sum:=0 ;
for i := 1 to 4 do sum := sum + a[i]* a[i];

3. Запишите фрагмент программы, которая вводит значения в табличную величину из 8 действительных чисел, содержащихся в строках многосторочного текстового поля.

4. Запишите фрагмент программы, которая вводит значения элементов табличной величины из 11 чисел и строи многосторочного текстового поля

​

Const
    N = 10;

var
    A: array[1..N] of integer;

function Fun: integer;
var
    i, M: integer;
begin
    writeln('Введите число M=');
    readln(M);
    for i := 1 to N do
        if A[i] = M then Fun := i;
end;

procedure CreateMassive;
var
    i: integer;
begin
    for i := 1 to N do
    begin
        A[i] := Random(199) - 100;
        write(A[i],' ');
    end;
    Writeln;
end;

begin
    CreateMassive;
    Writeln(Fun);
end.

вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно

Собственно чтобы представить число в двоичную систему счисления, необходимо разделить его на максимально целую часть, которая при умножении на 2 давала нам ближайшее значение к этому числу. Т.е.
число 243: если мы умножим 121 на 2: 121*2=242;Т.е. 121 умноженное на 2 и есть ближайшее число к 243, но им не является, т.к. остаток 1, мы записываем его ниже и делим число дальше. Вспоминаем деление столбиком и высчитываем (во вложении). Также, есть более быстрое и продуктивное высчитывание (во вложении). В обоих решениях выписывание остатков происходит в обратном порядке для верного ответа.