Найти среднее арифметическое чисел, принадлежащих промежутку [15;62] — Pascal(Паскаль)

uses crt;
var
   i,k,s:integer;
begin
clrscr;
for i:=15 to 62 do
 begin
  inc(k);
  s:=s+i;
 end;
write('Среднее арифметическое чисел промежутка ',s/k:0:2);
readln
end.