Даны два натуральных числа. определить, значение большего из них и во сколько раз. если числа равны, то вывести "equals". входные данные: во входном потоке заданы два целых числа, перечисленные через пробел.значения каждого из них не превышают 32000 пример входного файла (input.txt) 4 8 выходные данные: в выходной поток ввести два числа через пробел: целое и вещественное с точностью три знака после запятой или строку equals пример выходного файла (output.txt) 8 2.000
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<b then
begin
c:=b/a;
write(b,c:6:3)
end else
write('EQUALS');
end.