Даны ДВА числа, а найти минимум из ТРЕХ... не совсем понял
программа находит минимальное из трех чисел введенных с клавиатуры
function M(a,b : integer): integer;
begin
if a M := a
else
M := b;
end;
var a, b, c : integer;
begin
write('A: '); readln(a);
write('B: '); readln(b);
write('C: '); readln(c);
write('Minimum: ', m(m(a,b),c));
end.