Даны 2 различных числа. найти C=max/min. написать программу в PASCAL

Question

Даны 2 различных числа. найти C=max/min. написать программу в PASCAL

Comments

тоесть нодо узнать число C больше другого или меньше

---

???

Answer 1

Begin
var a, b, c: integer;

readln(a,b);

c := 1;

if a > b then c := a / b
else c := b / a;
writeln(c);
end.