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

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

ладно

var a,b,c,d,ab,cd:integer;beginreadln(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.

спасибо!

function min2(var a,b:integer): integer;beginif a>b thenresult:=aelseresult:=b;end;function min4(var a,b,c,d:integer): integer;begin if min2(a,b)>min2(c,d) thenresult:=min2(a,b)elseresult:=min2(c,d);end;var a,b,c,d: integer;beginreadln(a,b,c,d);writeln(min4(a,b,c,d));end.