Помогите пожалуйста написать программу, которая считает сумму всех чисел от 1 до n. Программа нужна на паскале

блин, ему же в циклах надо!
1. s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i)
end
2. s:=0;
i:=1;
repeat
s:=s+i;
inc(i)
untill i>n

могу ошибиться в синтаксисе - на паскале не писал уже несколько лет