Помогите исправить ошибку (не работает задача)

Question

Function max(a,b,c : real) : real;
If a > b then
 Begin
 If a> c then
 Max := a;
 End
Else if b > a then
 Begin
 If b > c then
 Max := b;
 End
Else if c > a then
 Begin
 If c > b then
 Max := c;
 End
Else 
 Max := 0;
End;

Var a,b,c : real;
 
Begin
Write('введите а : ');
Readln(a);
Write('введите b : ');
Readln(b);
Write('введите с : ');
Readln(c);
Case max(a,b,c) of
 a : writeln('a максимальное');
 b : writeln('b максимальное');
 c : writeln('c максимальное');
 0 : writeln('числа равны');
End;
Readln;
End.

Описать функцию Max(A,B,C) вещественного типа, находящую максимальное из трех вещественных чисел A, B и C. С помощью этой функции найти максимальные из наборов (A,B,C), (A,B,D), (A,C,D), если даны числа A, B, C, D. Это задание к задаче

Можно пожалуйста задачу в рабочем виде написать? Буду очень благодарен

Ксения Сергеевна · Accepted Answer

Для начала:

… Хотя, сам принцип не правильный! Не зачем городить кучу условий, когда можно воспользоваться простой сортировкой:

P.S. Оператор Case не работает с действительными значениями!

Эдик Белозеров · Answer

У тебя в функции за место max должен быть Result за место max на сколько я припоминаю! ! !

Вот пример

Function GetSum(a, b : Integer) : Integer;
begin // Сложение двух чисел, и возврат этого значения 
Result := a + b;
end;

Сергей · Answer

ГооГле: Справочник Алгоритмов.
А в нем: Сортировки

С Эндами запутался

Dasha Maslikova · Answer

Писал на pascalABCNet.

var
a,b,c,d,max :real;

function maxf(x,y,z:real) :real;
begin
 if(x > y) and (x > z) then maxf := x;
 if(y > x) and (y > z) then maxf := y;
 if(z > x) and (z > y) then maxf := z;
end;
begin
 a := 3;
 b := 23.43;
 c := -123.23;
 d := 0;
 
 max := maxf(a,b,c); // находим макс
 writeln(max); // выводим макс
 max := maxf(a,b,d);
 writeln(max);
 max := maxf(a,c,d); 
 writeln(max); 
 
end.