описать функцию min (a,b,c) получающую три вещественных числа и находящую минимальное из них. с помощью этой функции найти минимумы из 5 наборов чисел

Можно гораздо проще:function Min(a,b,c:real):real;BeginMin:=a;if Min > b then Min:=b;if Min > c then Min:=cEnd;

Program2.pas(7) : Нельзя преобразовать тип function(a: real;b: real;c: real): real к real. Поэтому я сделал по-другому

И всё равно можно проще))function Min(a,b,c:real):real;Beginif a > b then a:=b;if a > c then a:=c;Min:=a;End;

На ABC.NET можно еще проще:

function Min(a, b, c: real): real;begin min:=min(min(a,b),c);end;

var   a, b, c, d, e: real;  function min(a, b, c: real): real; begin   if(b < a) and (b < c) then min := b;   if(c < a) and (c < b) then min := c;   if(a < b) and (a < c) then min := a; end;  begin   read(a, b, c, d, e);   write(min(min(a, b, c), d, e)); end.