Помогите, преобразовать данную программу в функцию ПОЖАЛУЙСТА

var
s,a,i:integer;
begin
readln(a);
s:=0;
for i:=1 to a do
s:=s+i;
writeln(s);
end.