Составить алгоритм нахождения(это нужно делать в паскале) 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 := b
end;

begin
  write('введите 3 числа: ');
  readln(x1, x2, x3);
  mn := min(x1, min(x2, x3));
  writeln('минимум: ', mn);
end.