Задача в Pascal ABC

[Лиза_]

Дано натуральное число a, a<10. Верно ли следующее утверждение: произведение цифр данного числа больше 25?
Помогите пожалуйста написать программу к задаче!!

[Serge_Bliznykov]

Лиза, или вы опечатались, или задача БЕССМЫСЛЕНА.
для любого натурального числа a, a<10 количество цифр всегда 1 (одна цифра).
поэтому ни а каком произведении речи быть не может!

[Лиза_]

Да, я ошиблась a>10

[@нтошка]

Вот код:

program p1;
var
    otv,a:integer;
    i:integer;
    s:string;
begin
    cls;
    repeat
        writeln('Введите число, большее 10');
        readln(a);
    until a>10;
    s:=inttostr(a);
    otv:=1;
    for i:=1 to length(s) do
    begin
        otv:=strtoint(s[i])*otv;
        if otv > 25 then
        begin
            writeln('Произведение цифр больше 25');
            exit;
        end;
    end;
    writeln('Произведение цифр меньше либо равно 25');
end.

[Serge_Bliznykov]

нормальное решение.

рискну предполжить более "честный" вариант - без использования преобразования строковых данных:

program p1;
var
    otv,a:integer;
    i:integer;
begin
    cls;
    repeat
        writeln('Введите число, большее 10');
        readln(a);
    until a>10;
    otv:=1;
    while (otv<=25) and (a>0) do
    begin
      otv := otv * (a mod 10);
      a := a div 10;
    end;
    if otv > 25 then
      writeln('Произведение цифр больше 25')
    else
      writeln('Произведение цифр меньше либо равно 25');
end.