Есть код ,как добавить ограничение на ввод отрицательных чисел . Ну то есть чтобы в текст бокс можно было вводить только числа больше 0 If OptGarm Then
res = 6 / ((1 / a) + (1 / b) + (1 / c) + (1 / D) + (1 / e) + (1 / f))
LabelRes = "Среднее гармоническое"
End If
TextBoxRes = Format(res, "fixed")
End Sub

1)Устройства ввода - это устройства, которые переводят информацию с языка человека на машинный язык.
Клавиатура – клавишное устройство для ввода числовой и текстовой информации.
Координатные устройства ввода - манипуляторы для управления работой курсора (Мышь, Трекбол, Тачпад, Джойстик).
Сканер – устройство ввода и преобразования в цифровую форму изображений и текстов. Существуют планшетные и ручные сканеры.
Цифровые камеры  – формируют любые изображения сразу в компьютерном формате.
Сенсорные устройства ввода
2)Устройства вывода  - это устройства, которые переводят информацию с машинного языка в формы, доступные для человеческого восприятия.
Монитор (дисплей) - универсальное устройство визуального отображения всех видов информации.
Принтер – устройство для вывода информации в виде печатных копий текста или графики.
Плоттер (графопостроитель) – устройство, которое чертит графики, рисунки и диаграммы под управлением компьютера.
Акустические колонки и наушники – устройство для вывода звуковой информации
3)виды памяти
-внутренняя память
Оперативная память (ОП) предназначена для  временного хранения выполняемых программ и данных, обрабатываемых этими программами. Это энергозависимая память. Физически реализуется в модулях ОЗУ (оперативных запоминающих устройствах) различного типа. При выключении электропитания вся информация в оперативной памяти исчезает.
Кеш память - очень быстрая память малого объема служит для увеличения производительности компьютера, согласования работы устройств различной скорости.
Специальная - постоянная, Fiash, видеопамять и тд.
---Внешняя память - это память, предназначенная для длительного хранения программ и данных. Целостность содержимого ВЗУ не зависит от того, включен или выключен компьютер
Дисковод (накопитель), Носитель информации (носитель записи).

Var x1,y1,x2,y2,v1,v2:real;
begin
  writeln("введите количество метров пробегания жирафа");
  read(y1);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x1);
  writeln("введите количество метров пробегания зайца");
  read(y2);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x2);
  v1:=y1/x1;
  v2:=y2/x2;
  if v1>v2 then 
  begin
     writeln("жираф чемпион");
  end
  else if v1<v2 then 
  begin
     writeln("заяц чемпион");
  end
  else
  begin
    writeln("победила дружба);
  end;
end;