Question

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

Answer 1

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 - максимальный
Вводим три числа, в ответ получаем максимальный

Answer 2

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('Минимальное -> ', min(ReadInteger('a ='),min(ReadInteger('b ='),ReadInteger('c ='))));
end.