Question

Составить программу вычисления произведения нечётных чисел меньши 16

Answer 1

var n:byte;
sum:integer;
begin
n:=16;
repeat
dec(n);
if (n mod 2)=0 then continue;
sum:=sum+n;
until n=0;
writeln(sum);
end.