procedure TForm1.Button1Click(Sender: TObject);
var a, b, i: integer;
    sum, count, res: extended;
begin
  a:=StrToInt(Edit1.Text);  //Ввод данных!
  b:=StrToInt(Edit2.Text);  //Ввод данных!
   sum:=0;
   count:=0;
   res:=0;
  for i:=a to b do //Перебираем все числа от а до b!
    if (i mod 10) = 7 //В случае если остаток от деления на 10 - 7 (т.е. последняя цифра - 7)...
    then begin
       sum:=sum+i; // ...то число добавляем к сумме.
       count:=count+1; //И увеличиваем количество посчитанных чисел!
    end;
      if count;0 then
      res:=sum/count;
  Label1.Caption:=FloatToStr(res); //Ответ готов!
end;