На АЯ составьте алгоритм нахождения наименьшего из трёх значений переменных A, B, C.

Пишите процедуру - функцию нахождения минимума для двух чисел, например, minn (a, b: real) : real; Считываете три числа a, b, c, находите минимум из чисел a и b minn (a, b), присваиваете найденное значение переменной d, затем находите минимум среди чисел d и с minn (d, c) - присваиваете найденное значение переменной d - это и будет результат

На паскале:

var a, b, c, d: real;

function minn (a, b: real) : real;

begin

if a>b then minn:=b

else minn:=a;

end;

begin

write ('числа a b c через пробел: ') ;

readln (a, b, c) ;

d:=min (a, b) ;

d:=min (d, c) ;

writeln ('минимум: ', d) ;

end.

Ввод - вывод:

числа a b c через пробел: 21 6 2

минимум: 2