Важно!

[Александр_Саня]

for i:=1 to 50 do
if i mod 2<>0 then
x*=1
нужно переписать на цикл while
помогите пажалуста,на завтра нужно,хелп...

[BDA]

i:=1;
while i<=50 do
begin
   if i mod 2<>0 then
      x*=1;//что это???
   inc(i);
end;