Составьте диаграмму молочных продуктов?

1. Очень много опечаток. Где-то забыли " ;", где-то лишняя скобка.  В функции sqrt вместо q ввели g и т.п.
2. Программа не дописана до конца.
Вот исправленный код:
program kvadrat;

var
  D, a, b, c: integer;
  x1, x2: real;

begin
  writeln('a,b,c');
  readln(a, b, c);
  D := b * b * -4 * a * c;
  if D < 0 then writeln('Корней нет') else
  if D = 0 then
  begin
    x1 := -b / (2 * a);
    writeln('решение уравнения', x1);
  end
  else if D > 0 then begin
    x1 := (-b + sqrt(D)) / (2 * a);
    x1 := (-b - sqrt(D)) / (2 * a);
    writeln('решения уравнения', x1, ' ', x2);
  end;
end.

#include <iostream>

int main() {

   int k = 0;

   for (int a=1; a<10; a++)

    for (int b=0; b<10; b++)

     if(a!=b&&a%2!=b%2)

      for (int c=0; c<10; c++)

       if (c!=a&&c!=b&&c%2!=b%2)

        for (int d=0; d<10; d++)

         if (d!=a&&d!=b&&d!=c&&d%2!=c%2)

          for (int e=0; e<10; e++)

           if (e!=a&&e!=b&&e!=c&&e!=d&&e%2!=d%2)

            for (int f=0; f<10; f++)

             if (f!=a&&f!=b&&f!=c&&f!=d&&f!=e&&f%2!=e%2)

              k++;

   std::cout << k; // 6480

   return 0;

}

Объяснение: