С помощью цикла Repeat…Until составить программу для нахождения произведения пяти первых нечетных чисел.
программа паскаль абц

Я ввел 1 2 3 1 3 2 3 и получил ответ 27

1*3*1*3*3=27

всё СПАСИБО ОГРОМНОЕ!!!!!

Не за что.

Program v;Var a,b,n:integer;BEGINb:=1;repeatreadln(a);if (a mod 2 > 0) or (a mod 2 < 0) then beginb:=b*a;n:=n+1;end;until n=5;writeln (b);END.Должно работать.