[kilds]

Сообщение от Ildar-tsr

Код:

funcion max(a,b,c:real):real;
begin
if (a>b) and (a>c) then
  result:= a
else
  if b>c then result:= b
  else result:= c;
end;

writeln ('max=',max(x,y,z));

min по аналогии

выдаёт ошибки
[Error] Project1.dpr(8): Invalid compiler directive: 'funcion'
[Error] Project1.dpr(8): ',' or ':' expected but '(' found
[Error] Project1.dpr(8): ';' expected but ':' found
[Error] Project1.dpr(9): Type expected but 'BEGIN' found
[Error] Project1.dpr(11): Undeclared identifier: 'result'