Проект вызвал класс исключений "External:SIGFPE" - Turbo Pascal

Формулировка задачи:

program Lab3Ex4;
var m,h,s,t:real;
 begin
    writeln('Введите скорость Масяни');
       readln(m);
      writeln('Введите скорость Хрюнделя');
          readln(h);
         writeln('Введите расстояние');
            readln(s);
                    t:=s/(m+h)*3600;
            writeln(t);
              readln;
 end.

ввожу числа от 1 до n всё норм но когда, ввожу 0 ; 0 ; 1 пишет Проект вызвал класс исключений "External:SIGFPE" В файле ... на строке 16: t:=s/(m+h)*3600

Решение задачи: «Проект вызвал класс исключений "External:SIGFPE"»

Листинг программы

repeat
  writeln('Введите скорость Масяни');
  readln(m);
  writeln('Введите скорость Хрюнделя');
  readln(h)
 until (m <> 0) or (h <> 0);

Объяснение кода листинга программы

В цикле repeat выполняется до тех пор, пока условие не будет выполнено.
Выводится сообщение 'Введите скорость Масяни'.
Считывается значение переменной m с помощью функции readln.
Выводится сообщение 'Введите скорость Хрюнделя'.
Считывается значение переменной h с помощью функции readln.
Проверяется условие (m <> 0) и (h <> 0).
Если условие не выполняется, цикл повторяется.
Если условие выполняется, цикл прекращается.