Составить алгоритм нахождения(это нужно делать в Паскале)
1) меньшего из двух чисел
2)меньшего из трех чисел

1. Меньшее из 2-х:program Minimum;var  a, b: integer;begin  write('введите 2 числа: ');  readln(a, b);  if a < b    then writeln('минимум: ', a)  else writeln('минимум: ', b);end.2. Меньшее из 3-х с помощью функции:var  x1, x2, x3, mn: integer;function min(a, b: integer): integer;begin  if a < b    then min := a  else min := bend;begin  write('введите 3 числа: ');  readln(x1, x2, x3);  mn := min(x1, min(x2, x3));  writeln('минимум: ', mn);end.