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

Question

Найти алгоритм минимума из 3х целых чисел на паскале+ составить блок -схему.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!

Answer 1

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