введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа

var ab, pr: integer; a: array[1..5] of integer;begin readln(ab); pr:=1; a[1] := ab div 10000; a[2] := ab mod 10000 div 1000; a[3] := ab mod 1000 div 100; a[4] := ab mod 100 div 10; a[5] := ab mod 10; for i: integer := 1 to 5 do if a[i] mod 2 = 1 then pr *= a[i]; writeln(pr);end.

прошу прощения. вот верное решение

хм, странно но у меня pascal ABC жутко материться на вашу программу

возможно, у вас старая версия. у меня все работает корректно

вполне возможно

мне надо именно турбо паскаль

бред какой... последний турбо был выпущен в 94. его теперь уже и на скачать толком.

ну что поделать,если препод требует именно такой паскаль

на какой строке она вылетает? не на описании ли массива?

вот я ее записала и когда вывожу результат там вообще херомантия полная

program tak;var a,b,c,d:integer;begin writeln('введите пятизначное число '); readln(a); d:=1; while (a<>0) do begin  b:=a mod 10;  if (b mod 2 <> 0) then  d:=d*b;  a:=a div 10; end; writeln(d);end.