Проект вызвал класс исключений "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" - Turbo Pascal»

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

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ