Составить программу F=1+2+..+N

Question

Составить программу
F=1+2+..+N

Answer 1

//Pascal
var N, i, F: integer;
begin
F := 0;
write('Введите N: '); readln(N);
for i := 1 to N do
  F := F + i;
write('F = ', F);
end. 

Answer 2

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('F=',1.To(ReadInteger).Sum)
end.

Пример
318
F=50721