решения задач tp.abc

[Junger]

помогите решить задачу!срочно!
даны два числа.вывести порядковый номер меньшего из них 9.25 2.70

[Mad_Cat]

var a,b:real;
begin
readln(a);readln(b);
if (a<=b) then writeln(1)
else writeln(2);
end.