var a:array[1..1000] of integer;
i,pro,k.max:integer;
begin
write('Вводится числа');
repeat
readln(a[ i ]);
i:=i+1;
k:=k+1;
until a[ i ]=0;
for i:=1 to k do
if max<a[ i ] then max:=a[ i ];
pro:=sqr(max);
writeln(pro);
end.