Расскажите о военном соперничестве СССР и США и его итогах. Для какой из сторон противостояние оказалось большим экономическим бременем? Почему?

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.