Pascal ABC Где ошибка? - Pascal ABC

Формулировка задачи:

function Min4(a,b,c,d:real):real;
var min1,min2:real;
begin
if a<b then min1:=a else min1:=b;
if c<d then min2:=c else min2:=d;
if min1<min2 then Min4:=min1 else Min4:=min2;
end;
var a,b,c,d,e:real;
begin
writeln('Введит вещественнве числа a,b,c,d,e:');
readln(a,b,c,d,e);
writeln('Минимальное из ',a,' ',b,' ',c,' ',d,' =',Min4(a,b,c,d));
writeln('Минимальное из ',a,' ',b,' ',c,' ',e,' =',Min4(a,b,c,e));
writeln('Минимальное из ',a,' ',c,' ',d,' ',e,' =',Min4(a,c,d,e));
writeln('minimalnoe iz ',Min4(a,b,c,d),' ',Min4(a,b,c,e),' ',Min4(a,c,d,e),' =',Min4(Min4(a,b,c,d),Min4(a,b,c,e),Min4(a,c,d,e), -1 ));
readln
end.
Окно вывода: Введит вещественнве числа a,b,c,d,e: 60 50 40 90 10 Минимальное из 60 50 40 90 =40 Минимальное из 60 50 40 10 =10 Минимальное из 60 40 90 10 =10 minimalnoe iz 40 10 10 =-1 (нужно что бы здесь было минимальное из (абсд)(абсе)(абде)) Не могу додумать((

Код к задаче: «Pascal ABC Где ошибка? - Pascal ABC»

textual
function Min(a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
var a,b,c,d,e:real;
begin
writeln('Введите вещественные числа a,b,c,d,e:');
readln(a,b,c,d,e);
writeln('Минимальное из ',a,' ',b,' ',c,' ',d,' =',Min(Min(a,b),Min(c,d)));
writeln('Минимальное из ',a,' ',b,' ',c,' ',e,' =',Min(Min(a,b),Min(c,e)));
writeln('Минимальное из ',a,' ',c,' ',d,' ',e,' =',Min(Min(a,c),Min(d,e)));
writeln('Минимальное из ',Min(Min(a,b),Min(c,d)),' ',Min(Min(a,b),Min(c,e)),' ',
Min(Min(a,c),Min(d,e)),'=',Min(Min(Min(Min(a,b),Min(c,d)),Min(Min(a,b),Min(c,e))),
Min(Min(a,c),Min(d,e))));
end.

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ