Задаются 2 числа а и б найти результат отношение большего из них на меньшее составить алгоритм

Program z1;var a,b,c:real;beginwriteln('введите 2 числа');readln(a,b);if (a>b) then c:=a/belse c:=b/a;writeln(c);end.