Листинг программы

program z53;

{ Получить все четырёхзначные числа, у которых все цифры нечётные. }

uses crt;

var k,i1,i2,i3,i4,i5,fl:longint;

    mm:array[1..4]of longint;

 begin

  clrscr;

   for i1:=1 to 9 do

    for i2:=0 to 9 do

     for i3:=0 to 9 do

      for i4:=0 to 9 do

       begin

        mm[1]:=i4;

        mm[2]:=i3;

        mm[3]:=i2;

        mm[4]:=i1;

        fl:=0;

        for i5:=1 to 4 do

         if mm[i5] mod 2=0 then fl:=1;

        if fl=0 then begin write(i4,i3,i2,i1,' ');inc(k); end;

       end;

    write(' кол-во:',k);

  readln;

 end.