Найти алгоритм минимума из 3х целых чисел на паскале+ составить блок -схему. ,хотя бы на паскале составьте!

Var
  a, b, c, min : integer;
begin
  read (a, b, c);
  if (a <= b) and (a <= c) then min := a
  else if (b <= a) and (b <= c) then min := b
  else min := c;
  write (min);
end.