Составить программу по нахождению среднего арифметического всех чисел от 10 до 45. в паскале

Uses crt;
var i,average,count:integer;
begin
for i:=10 to 45 do
begin
average:=average+i;
inc(count);
end;
writeln(average/count);
end.