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

var a, b, c, max: longint; begin readln(a, b, c); max:=a; if b > max then max:=b; if c > max then max:=c; writeln(max); readln; end a, b, c - наши числа max - максимальный Вводим три числа, в ответ получаем максимальный

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!beginWriteln('Минимальное -> ', min(ReadInteger('a ='),min(ReadInteger('b ='),ReadInteger('c ='))));end.