Решить в паскале с операторов while и repeat 1) вывести на экран все четные числа из диапазона от a до в, кратные трём (а< =в) 2) вывести на экран все двузначные числа в которых старшая цифра отличается от младшей не больше, чем на 1

1. read(a);
      read (b);
         while (a<=b)
            begin;
          if ((a mod 2 =0) and (a mod 3 =0)) or ((b mod 2=0) and (b mod 3 =0)) then
 begin;
write (a)
     else 
 if (b mod 2=0) and (b mod 4=0) then      
   write (b)
      else 
  end;
readkey;     
end.

второе прости могу только на си