Question

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

Answer 1

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.