Ответы и объяснения

2013-12-18T19:03:05+00:00
Var
  x,sum: integer;
  prod: double;
begin
  prod:= 1;
  sum:= 0;
  x:= 1;
  while x<100 do begin
    if x mod 3 = 0 then begin
      sum:= sum+x;
      prod:= prod*x
    end;
    inc(x)
  end;
  writeln('Сумма=',sum);
  writeln('Произведение=',prod)
end.