Question

Запишите алгоритм нахождения минимума из трех чисел a,b,c.

Answer 1

var a,b,c:integer;

Begin

  read(a,b,c);

  if (a>b) then a:=a else a:=b;

  if (a>c) then a:=a else a:=c;

  writeln(a);

End.