функция для вычисления минимального значения

[Sweet-_-Orange]

Привести код функции с именем MinElem типа integer для определения минимального значения с трех переменных (А, В, С: integer), которые передаются в функцию через формальные параметры. Не использовать встроенную функцию для определения минимального значения с нескольких переменных. Использовать только 2 не вложенных оператора if.
var А, В, С: integer;

и надо только чтобы 2 оператора if, а у меня 3
и ошибку выдает

помогите последний раз, прошу!

var A,B,C:integer;
Function MinElem(min,i,n:integer):integer;
begin
for i:=1 to n do
readln;
begin
A:=min;
if A<min then
min:=A;
end;
begin
B:=min;
if B<min then
min:=B;
end;
begin
C:=min;
if C<min then
min:=C;
end;
writeln(min,'  ',);
readln;
MinElem(min,i,n);
writeln;
readln;
end.

[phasha]

function minelem(a,b,c:integer):Integer;
begin
if (a<b) And (a<c) then result:=a else
if (b<a) and (B<c) then result:=b else
result:=c;
 end;
var A,B,C,h:integer;
 begin
 write('A=');Readln(a);
 write('B=');Readln(b);
 write('C=');Readln(c);
 Writeln('minimum =',minelem(a,b,c):5);
       Readln;
end.

все легче чем кажется

[denisbrain]

Сообщение от Sweet-_-Orange

Привести код функции с именем MinElem типа integer для определения минимального значения с трех переменных (А, В, С: integer), которые передаются в функцию через формальные параметры. Не использовать встроенную функцию для определения минимального значения с нескольких переменных. Использовать только 2 не вложенных оператора if.
var А, В, С: integer;

и надо только чтобы 2 оператора if, а у меня 3
и ошибку выдает

помогите последний раз, прошу!

var A,B,C:integer;
Function MinElem(min,i,n:integer):integer;
begin
for i:=1 to n do
readln;
begin
A:=min;
if A<min then
min:=A;
end;
begin
B:=min;
if B<min then
min:=B;
end;
begin
C:=min;
if C<min then
min:=C;
end;
writeln(min,'  ',);
readln;
MinElem(min,i,n);
writeln;
readln;
end.

var A,B,C:integer;
Function Min2(a,b:integer):integer;
begin
   if a>b then result:=b else result:=a;
end;
Function Min3(a,b,c:integer):integer;
begin
  result:=min2(a,min2(b,c));
end;
begin
Writeln('A=');
readln(a);
Writeln('B=');
readln(B);
Writeln('C=');
readln(C);
Writeln(Min3(a,b,c));
readln;
end.

[Sweet-_-Orange]

Спасибо огромное!!)