Паскаль, помогите решить задачу

Question

Паскаль, помогите решить задачу

---

Answer 1

var

  a, b, c : Integer;

begin

  Write('Vvedite 1 chislo: '); ReadLn(a);

  Write('Vvedite 2 chislo: '); ReadLn(b);

  Write('Vvedite 3 chislo: '); ReadLn(c);

 

  if b > a then a := b;

  if c > a then a := c; 

 

  Writeln('Naibolshee chislo: ', a);

  Writeln('Kvadrat chisla: ', sqr(a));

 

end.

Answer 2

 

var a, b, c, max: integer;

begin
readln(a, b, c);
if (a >= b) then
max := a
else
max := b;
if (c > max) then
max:=c;
write(sqr(max));
readln;

end.