Даны два натуральных числа. Определить, значение большего из них и во сколько раз. Если...

Question

Даны два натуральных числа. Определить, значение большего из них и во сколько раз. Если числа равны, то вывести "EQUALS".

Входные данные:
Во входном потоке заданы два целых числа, перечисленные через пробел.Значения каждого из них не превышают 32000
пример входного файла (input.txt)
4 8

Выходные данные:
В выходной поток ввести два числа через пробел: целое и вещественное с точностью три знака после запятой или строку EQUALS
Пример выходного файла (output.txt)
8 2.000

Answer 1

PascalABC.NET

var 
 a,b: integer;
 c: real;
begin
 readln(a,b);
 if a>b  then
  begin
   c:=a/b; 
   write(a,c:6:3)
  end else
 if a  begin
   c:=b/a;
   write(b,c:6:3)
  end else
 write('EQUALS');
end.
 

Comments

Строка 5 Ошибка времени выполнения : Входная строка имела неверный формат

---

Не знаю, у меня все работает