Написать программу с процедурами. Паскаль

[Тетрадь]

Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа.

program pro1;
var
   a, i: integer;
   p: real;
begin
     writeln('Введите число');
     readln(a);
     p := 1;
     for i := 1 to a do begin
                        if (i mod 2 <> 0) then p := p * i;
                        end;
     writeln('произведение нечетных чисел = ', p);
     if (p < a) then writeln('Произведение меньше')
                else writeln('Произведение больше');
end.

Написал такую программу, теперь просят написать ее с процедурами

[Stilet]

Лови:

program pro1; procedure a
var
   a, i: integer;
   p: real;
begin
     writeln('Введите число');
     readln(a);
     p := 1;
     for i := 1 to a do begin
                        if (i mod 2 <> 0) then p := p * i;
                        end;
     writeln('произведение нечетных чисел = ', p);
     if (p < a) then writeln('Произведение меньше')
                else writeln('Произведение больше');
end;

begin a; end.

[BDA]

Тетрадь, пока Ваша программа даже без процедур не выполняет поставленной задачи.

[Arigato]

Stilet, точки с запятой не хватает.

[Stilet]

Согласен:

procedure a;

[Тетрадь]

BDAРазве? вроде все считает

[BDA]

Значит я по-другому понял условие.
Как понял:
Дано число N и число A. Считаем произведение нечетных цифр в числе N и сравниваем с A.

[Serge_Bliznykov]

Полностью согласен с BDA.
неужели в задании

Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа

слова "нечётных цифр" не натолкнули на мысль, что нужно выделить ЦИФРЫ из заданного числа?!