Условие
Даны числа a и b. Необходимо найти произведение всех чисел в интервале [a;b], которые кратны шести или пяти. Если таких чисел нет - вывести -1.

Формат входных данных
В единственной строке вводятся два целых числа a и b, (0≤a≤b≤50).

Формат выходных данных
Необходимо вывести единственное число — искомое произведение или -1, если подходящих чисел нет.

входные данные
1 10
выходные данные
300

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10

ответ: часть схемы пере информацию-плата.