Даны три числа. Нужно найти среднее из них(расположенное между меньшим и большим). При вводе чисел выдается окно с ошибкой
"is not valid integer point value
Помогите разобраться
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
a2:=StrtoInt(Edit1.Text);
b2:=StrtoInt(Edit2.Text);
c2:=StrtoInt(Edit3.Text);
if (a2>b2)and(b2<c2)
or(a2<b2)and(b2>c2) then
ShowMessage(InttoStr(b2));
if (a2>c2)and(c2<b2)
or(a2<c2)and(c2>b2) then
ShowMessage(InttoStr(c2));
if (c2>a2)and(a2<b2)
or(c2<a2)and(a2>b2) then
ShowMessage(InttoStr(a2))
end;