Помогите плиз срочно с задачей

[Raptor5]

Даны действительные числа a, b, c. Получить: тут дробь числитель: max (a, a+b) + max (a,b+c) знаменатель: 1+max(a+bc,1,15) Нужно обязательно использовать функцию.

[puporev]

Напиши условие понятно, словами. Что это max (a, a+b), max (a,b+c), max(a+bc,1,15).

[Stilet]

Раптор, есть идеи?

[Raptor5]

Идеи есть в функции нужно сравнить А и В если А больше В то присвоить функции значение А в противном случае наоборот.

[puporev]

По моему max (a, a+b) - Это сравнить a и a+b, max (a,b+c)-Это сравнить a и b+c, max(a+bc,1,15) - Это сравнить a+b*c с числом 1,15.
Если так, то можно попробовать решить.

[Raptor5]

Тоесть надо делать 3 функции?

Можете помочь с кодом?, а то я в этом не особо понимаю

[puporev]

Функцию нужно делать одну и очень простую, сравнить два числа. Потом эту функцию три раза использовать с разнымим параметрами, согласно условия. Чего вы все боитесь этих подпрограмм, аж немеете. Посмотри внимательно код и поймешь, что это несложно. При написании числа 1.5 используй разделитель точку, а не запятую, иначе ничего не выйдет.

Program sravnenie;
uses crt;
var a,b,c,m1,m2,m3,rez:real;
function MAX(n,m:real):real;
begin
if n>m then MAX:=n else MAX:=M;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
rez:=(MAX(a,a+b)+MAX(a,b+c))/(1+MAX(A+B*C,1.15));
write('rez=',rez:6:3);
readln
end.

[Raptor5]

Большое спасибо а можете еще помочь найти ошибку в другой задаче
Вот условие Даны действительная квадратная матрица порядка n, натуральные числа i, j (1  i  n, 1  j  n). Из матрицы удалить i-ю строку и j-й столбец.


А вот код моздаеться матрица и вместо того чтобы удалять строку и столбец она выдает подряд несколько чисел.

program zadacha4;
var n,i,j,k,m:integer;
a:array[1..50,1..50] of integer;
label 1,2;
begin
write('n=');readln(n);
write('i=');readln(i);
write('j=');readln(j);
end;
Writeln('Ishodnau matrica:');
for k:=1 to n do
begin
for m:=1 to n do
begin
a[k,m]:=10*k+m;
write(a[k,m]:4);
end;
writeln;
end;
for k:=1 to n do
begin
for n:=j to n do
begin
a[k,m]:=a[k,m+1];
end;
end;
for m:=1 to n-1 do
begin
for k:=i to n do
begin
a[k,m]:=a[k+1,m];
end;
end;
writeln;
writeln('Rezultat:');
for k:=1 to n-1 do
begin
for n:=1 to n-1 do
begin
write(a[k,m]:4);
end;
writeln;
end;
readln;
end.

[alexBlack]

Сообщение от Raptor5

for n:=j to n do

it's cool. Внимательнее

[Raptor5]

ммм а как правильно будет?