Составить программу и блок схему к : даны 2 числа.найти минимальное из них.

Program n_5;

var 
   a, b: integer;

begin
  writeln('Введите 2 целых числа ');
  readln(a);
  read(b);
  if a > b then
    write(b, ' < ', a);
  if a < b then
    write(a, ' < ', b);
  if a = b then
    write(a, ' = ', b);
end.