Делфи

[Marina)]

Если среди четырех чисел А, В, С,D имеется хотя бы одно четное, вычислить максимальное, иначе - минимальное.

[type_Oleg]

function FunctionMarina(A,B,C,D:Integer):Int eger;
begin
if Odd(A)and Odd(B)and Odd(C)and Odd(D)
then Result:=Min(Min(A,B),Min(C,D))
else Result:=Max(Max(A,B),Max(C,D));
end;

[Helen1]

Спасибо.

Можете указать на ошибку или подправить код, что-то программа не запускается..
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,m,s: real;
s1:string[40];
code:integer;
begin
val(edit1.text,a,code);
val(edit2.Text,b,code);

if (odd(a) or odd(b) or odd(c) or odd(d))
then s := 1
else s := -1;
m:= s * a;
if ((s * b) < m) then m := s * b;
if ((s * c) < m) then m := s * c;
if ((s * d) < m) then m := s * d;
m := s * m;
end;

[type_Oleg]

Четными или нечетными могут быть только ЦЕЛЫЕ числа. Поэтому и функция Odd кушает только целые числа. А у вас real. Надо:

var a,b,c,d:Integer;

Да и вообще непонятно - вводите с Edit' ов a и b, а c,d,m - откуда берутся?