Напишите программу поиска минимального числа из двух чисел введённых с использованием процедуры

program min;

var a,b: integer;

uses crt;

begin

clrscr;

writeln('введите 1-е число: ');

read(a);

writeln('введите 2-е число: ');

read(b);

if(a< =b) then writeln(' минимальное число: ', a)

else

writeln(' минимальное число: ', b)

end.