Вычислить сумму S первых N натуральных чисел — Pascal(Паскаль) -CF

Вычислить сумму S первых N натуральных чисел. Если S < 50, то вычислить сумму S1 четных натуральных чисел в пределах до N и вывести ее на печать. Если S > =50, то отпечатать S. N ввести с клавиатуры.

Программа

var
  s, s1, n : longint;
begin
  readln(n);
  s := ((1 + n) * n) div 2;
  if(s >= 50) then writeln(s) else begin
    if(n mod 2 <> 0) then dec(n);
    s1 := ((2 + n) * n) div 4;
    writeln(s1);
  end;
end.

Поделитесь своим мнением или задайте вопрос