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

program naimen;

var a, b: integer;

begin

write ('введите число а=');

read (a);

write ('введите число b=');

read (b);

if a< b then

write ('наименьшее число а')

else  write ('наименьшее число в');

end.

program l1e2na; uses crt; var  a,b: real; begin  writeln('++');   writeln('|                      сравнивалка : )                      |');   writeln('++');   write('введите число a: '); readln(a);   write('введите число b: '); readln(b);   writeln();   writeln('++');   writeln('|                          результат:                           |');   writeln('++');   if a-b< 0 then   writeln('|              число а меньше числа b              |')  else    if a-b> 0 then   writeln('|              число b меньше числа a              |')  else   writeln('|                          числa равны                        |');   writeln('++'); end.