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

beginvar a, b, c: integer;readln(a,b);c := 1;if a > b then c := a / belse c := b / a; writeln(c);end.