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

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.