Question

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

Answer 1

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.