Установите соответствие.
Сортировщик слайдов
Показ слайдов
Обычный режим

Program G;
Uses Crt;
Var count, num, ch: integer;
Begin 
 ClrScr; 
 Writeln('Год високосный? 1 - да, 0 - нет'); 
 Readln(Ch); 
 If ch=1 then 
  Begin   
   Writeln('Введите номер месяца'); 
   Readln(num);   
   Сase num of  
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.'); 
    4, 6, 9, 11: writeln('В месяце 30 дней.'); 
    2: writeln('В месяце 29 дней');   
   else writeln('Некорректный ввод данных')   
  End; 
 End  
 Else if ch=0  then 
  Begin   
   Writeln('Введите номер месяца');    
   Readln(num);
   Сase num of    
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');   
    4, 6, 9, 11: writeln('В месяце 30 дней.');   
    2: writeln('В месяце 28 дней');   
   else writeln('Некорректный ввод данных')   
   End; 
  End 
 Else writeln('Некорректный ввод данных');
Readln; 
End.

Может, все ЦИФРЫ чётные? Тогда смысл понятен. Будем считать это правильным условием. Тогда:
program Chisla;
var
i,a,b,c,d:integer;
BEGIN
for i:=1000 to 9999 do
begin
a:=i div 1000;
if a mod 2=1 then continue; //если первая цифра нечетная, переход на следующий виток цикла
b:=(i div 100) mod 10;
if b mod 2=1 then continue; //если вторая цифра нечетная, переход на следующий виток цикла
c:=(i mod 100) div 10;
if c mod 2=1 then continue; //если третья цифра нечетная, переход на следующий виток цикла
d:=i mod 10;
if d mod 2=1 then continue //если четвертая цифра нечетная, переход на следующий виток цикла
                   else writeln(i); //иначе все цифры четные - выводим число i на экран
end; //конец витка цикла
END. //конец программы