Решить 2 1) вывести на экран квадрат наибольшего из 2 введенных чисел? 2) вывести на экран корень наибольшего из 3 введенных чисел?

2)program MaxOfThree; var a, b, c: integer; begin readln(a, b, c); if a > b then begin if a > c then begin writeln(a) end else begin writeln(c) end end else begin if b > c then begin writeln(b) end else begin writeln(c) end end end.