турбо паскаль

[Degster]

а)определить радиус и центр окружности,на которой лежит наибольшее число точек заданного на плоскости множества точек
б)если к сумме цифр двузначного числа прибавить квадрат этой суммы,то снова получится это двузначное число.найти все такие числа.

[Mad_Cat]

б)
var i,j:byte;
begin
for i:=1 to 9 do
for j:=0 to 9 do
if ((i+j)+sqr(i+j))=(10*i+j) then writeln(10*i+j);
readln;
end.