Решить 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.

Uses crt; const     n = 39; var     x: array[1..n] of integer;     i,j,k: integer; begin randomize; clrscr; k: =0; writeln('исходный массив: '); for i: = 1 to n do       begin       x[i]: =random(53)-15;       if x[i]< 30 then             begin             textcolor(12);             k: =k+1;             end       else textcolor(7);       write(x[i],' ');       end; writeln; writeln; textcolor(7); writeln('числа, меня тридцати: ',k); writeln; writeln(' массив: '); for i: = 1 to n do       for j: = 1 to n-1 do               if x[j]> x[j+1] then                     begin                     k: =x[j+1];                     x[j+1]: =x[j];                     x[j]: =k;                     end; k: =0; for i: = 1 to n do       begin       write(x[i],' ');       j: =x[i];       while j div 10 < > 0 do             j: =j div 10;       if (j = 2)or(j = -2) then             k: =k+1;       end; writeln; writeln; writeln('числа, начинающиеся с двойки: ',k); readln; end.

Program pr1; var age: integer; name: char; begin writeln('enter your name'); readln(name); writeln('enter your age'); readln(age); if ((age> =1)and(age< =10)) then writeln(name,', ',age,' years old, kid) else if ((age> =11)and(age< =15)) then writeln(name,', ',age,' years old, teenager) else if ((age> =16)and(age< =20)) then writeln(name,', ',age,' years old, man/girl) else if ((age> =21)and(age< =30)) then writeln(name,', ',age,' years old, young human) else if ((age> =31) then writeln(name,', ',age,' years old, adult) else ('error 404'); end.