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

var a, b, c, max: integer;

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

end.

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 gt; a then a := b;

  if c gt; a then a := c; 

  Writeln('Naibolshee chislo: ', a);

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

end.