Составьте программу вычисления среднего арифметического целых чисел из отрезка [-4; 15].(паскаль)

Program X;
var
n,s:real;
i:longint;
begin
s:=0;
n:=0;
for i:=-4 to 15 do
  begin
  s:=s+i;
  n:=n+1;
  end;
writeln(s/n)
end.