Составьте программу для вычисления суммы s=1+2+3+4++n (на языке паскаль)

Я не знаю какой именно вам нужен паскаль, поэтому пишу на delphi:
var
    n:integer;
begin
    readln(n); 
    writeln((n+1)*n div 2);
end.