Помогите пожалуйста, нужно составить две программы.
1. определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
2. даны числа a,b,c. найти min(a,b,c)/max (a,b) + min(a+b,c+b)/max (a+c,b)
function min(a,b:real):real;
begin
if a>b then
min:=b
else
min:=a;
end;
function min3(a,b,c:real):real;
begin
min3:=min(min(a,b),c);
end;
function max(a,b:real):real;
begin
if a>b then
max:=a
else
max:=b;
end;
var a,b,c:real;
begin
readln(a,b,c);
writeln(min3(a,b,c)/max(a,b)+min(a+b,c+b)/max(a+c,b));
end.
⇢