Дана программа нахождения меньшего из двух чисел.

var a,b:integer; procedure Poisk(a,b:integer); begin   if a > b then     writeln('Меньшее число ', b);   if a=b then       writeln('Равны');     if a < b then       writeln('Меньшее число ', a); end;   begin   writeln('Введите числа');   readln(a,b);   Poisk(a,b); end.