ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Вот собственно задача:

Цитата:

Сколько точек с целочисленными координатами находится в круге радиусом R. Точка, находящаяся на окружности, считается принадлежащей кругу.

Технические условия.
Входные данные: Единственное число - радиус окружности R (R <= 15000).

Выходные данные: Единственное число - искомое количество точек N.

Пример ввода
2

Пример вывода
13

Я попытался решить, что-то такое вышло...:

Код:

var
a,b,c,d,e,l,m,n: integer ;
begin
read(a);
if (a = 2) then writeln('13') else
if (a = 1) then writeln('5') else
if (a = 3) then writeln((a*4) + 1 + (3*4)) else
begin
b:= (a*4) + 1;
???? Не знаю что тут написать....
write(b);
end;
end.

Не знаю что делать, не могу выявить зависимость.... помогите. пожалуйста...