Составить программу для нахождения наибольшего из 3 чисел.

незашто

vara, b, c : longint;function nod3 (a, b, c :longint) : longint;beginnod3 := nod (nod (a, b), c);end;function nod(var a, b: longint): longint; beginif (a = 0) or (b = 0) thenif a = 0 thennod:= belse nod:= aelse if a >= b then nod:= nod( a mod b, b)else nod:= nod( a, b mod a)end;beginread (a, b, c);writeln (nod3 (a, b, c));end.