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

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.