Найти сумму 15 слагаемых вида (i-1)/2 (язык pascal)

var
i:integer;
s:real;
begin
for i:=1 to 15 do
s:=s+((i-1)/2);
writeln('Resultat: ', s)
end.