Решить по информатике по паскалю. все четные числа из диапазона от а до в, кратные трём (а< =в)

Var   a,b,n: integer; begin   write('введите нижнюю и верхнюю границы: '); readln(a,b);   n: =a mod 6;   if n=0 then n: =a else n: =a+6-n;   writeln('четные числа, кратные трем из указанного диапазона');   while n< =b do begin write(n,' '); n: =n+6 end;   writeln end. тестовое решение: введите нижнюю и верхнюю границы: 13 42 четные числа, кратные трем из указанного диапазона 18 24 30 36 42

Вкачестве примера равномерного кода можно назвать ascii-таблицу, где каждому из 256 символов сопоставлено двоичное значение от 00000000 до 11111111. независимо от вероятности появления символа на его представление отводится 1 байт, или 8 бит. как известно, национальные языки большой избыточностью, то есть разницей между энтропией источника и максимально возможной энтропией, обусловленной равной вероятностью появления любого символа из алфавита. например, избыточность языка составляет 70%, а – 50%. это в частности означает, что некоторые буквы появляются в тексте гораздо чаще других и поэтому использовать равномерное кодирование нерационально. при неравномерном кодировании часто встречающимся символам сопоставляются более короткие кодовые последовательности, редко встречающимся – более длинные. за счет этого удается значительно сократить объем файла без потерь информации. существует несколько методов неравномерного кодирования, важнейших из которых является метод шеннона-фано.как-то так 

//где-то не закрыла begin end var a: array [1..40] of integer; sa,s3,s10,k,i: integer; begin sa: =0; s10: =0; s3: =0; k: =0; writeln('исходные значения'); for i: =1 to 40 do begin   a[i]: = random(21); write(a[i],'') end; writeln; for i: =1 to 40 do   begin   if a[i]mod 2< > 0  then begin   sa: =sa+a[i]; k: =k+1; if a[i]< 10 then s10: =s10+a[i]; if a[i] mod 3=0 then s3: =s3+a[i];                                     //здесь было странное выражение    end; end;                                                   //здесь writeln('среднее арефмитическое нечетных чисел',sa/k: 5: 0); writeln('сумма чисел, не превышающих', s10); writeln('сумма чисел, кратных трем', s3); end.