Составить программу решения ах2+вх+с=0, а, в не равно нулю.проверить случай , когда дискриминант болmше нуля меньше нуля и равен нулю.

 program ii;  
                var A, B, C, D: real; 
                  begin   
  writeln ('Введите коэффициенты А, В, С'); 
   readln (A, B, C);   
  if A=0     then
 writeln ('Уравнение не квадратное')
     else
begin
 D := B*B - 4*A*C; 
A := 2*A;
if D<0 then
writeln ('Действительных корней нет')
else
 if D=0 then
writeln ('Корни равны: X1 = X2 = ', -B/A)
else 
   begin       
  D := sqrt(D);      
    writeln ('X1 = ', (-B+D)/A);writeln ('X2 = ', (-B-D)/A); 
  end;        end;              end.

Class OftenChar{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in);
  String string = in.nextLine(); char chars[] = new char[4];
  chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
  for(int sChar = 0; sChar<string.length(); sChar++)
   if(string.charAt(sChar)==chars[0])chars[1]++;
   else if(string.charAt(sChar)==chars[2])chars[3]++;
  System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
 }
}

Чтобы прекратить ввод чисел в массив нужно ввести число "-1".
class ArrayMiddle{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
  while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
  } eArray[eArray.length-1] = 0;
  for(int cCell = 0; cCell<eArray.length-1; cCell++)eArray[eArray.length-1]+=eArray[cCell];
  System.out.print(eArray[eArray.length-1]/(double)(eArray.length-1));
 }
}