Question

составьте алгоритм нахождения наименьшего из трёх значений.

Answer 1

var a, b, c, n: integer;

begin

readln(a, b, c);

if a > b then n:= b else n:= a;

if n > c then n:= c;

writeln(n);

end.