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

Var
  r, r2, x, y: real;
  n: integer;

begin
  Write('Введите величину радиуса окружности: '); Readln(r);
  r2 := sqr(r); n := 0;
  {1. Точки в первой четверти без учета попавших на оси }
  x := 1;
  while x <= r do
  begin
    y := 1;
    while y <= r do
    begin
      if sqr(x) + sqr(y) <= r2 then n := n + 1;
      y := y + 1
    end;
    x := x + 1
  end;
  n := 4 * n; { учли точки в остальных трех четвертях }
  n := n + 1; { учли точку в начале координат }
  n := n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }
  Writeln('Число точек, принадлежащих кругу, равно ', n);
end.

Тестовое решение:
Введите величину радиуса окружности: 3
Число точек, принадлежащих кругу, равно 29

Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24.
public class zadanie4 {
public static void main(String[] args) {  .
 int a[];      
a=new int [150];      
System.out.println("Исходный массив:");      
for (int i=0;i<15;i++) {      
a[i]=(int) Math.floor(Math.random()*20)-10;       System.out.println("a["+i+"]="+a[i]);}     
  for (int i=0;i<15;i++){      
if (a[i]>=-5 && a[i]<=5){       a[i]=a[i]+1;}}      
System.out.println("Полученный массив:");     
  for (int i=0;i<15;i++) {       System.out.println("a["+i+"]="+a[i]);}}}