menghitung deret(1+2+3+4+5+6+..n)

program coba;
uses crt;
var a,hasil:integer;
function deret(x:integer):integer;
var i,hasil:integer;
begin
hasil:=0;
for i:= 1 to x do
hasil:=hasil+i;
write('Maka jumlah deretnya adalah= ',hasil);
end;
begin
clrscr;
write('Jika batas deret sampai=');readln(a);
hasil:=deret(a);
readln;
end.