найти большее из 4-ёх чисел pascal ABC NET

Question

найти большее из 4-ёх чисел pascal ABC NET

Answer 1

Function min2(var a,b:integer): integer;
begin
if a>b then
result:=a
else
result:=b;
end;

function min4(var a,b,c,d:integer): integer;
begin 
if min2(a,b)>min2(c,d) then
result:=min2(a,b)
else
result:=min2(c,d);
end;

var a,b,c,d: integer;
begin
readln(a,b,c,d);
writeln(min4(a,b,c,d));
end.

Comments

можно решение попроще пожалуйста, мы этого ещё не проходили мы только прошли then и if

---

ладно

---

var a,b,c,d,ab,cd:integer;
begin
readln(a,b,c,d);
if (a>b) then
ab:=a
else
ab:=b;
if (c>d) then
cd:=c
else
cd:=d;
if (ab>cd) then
writeln(ab)
else
writeln(cd);
end.

---

спасибо!