Решите задание по информатике надо написать. Программу на паскале

#include <iostream>
int main(){
 int arr[3][7]; /*for (int* i = *arr; (i - *arr) < 21; i++) *i = i-*arr;*/
 const int VALUE = 11;
 //
 int max; int count = 0;
 for (int x = 0; x < 7; x++) {
  max = arr[0][x];
  for (int y = 0; y < 3; y++) {
   if (max < arr[y][x]) max = arr[y][x];
  }
  if (max < VALUE) {
   std::cout << "Наибольший элемент столбца " << x + 1 << " меньше заданной величины." << std::endl;
   count++;
  }
 }
 std::cout << count << " столбцов не соответсвуют условию." << std::endl;
 return 0;
}

Function SolveX(a,b,c:real; var x1,x2:real):integer;
{
Возвращает:
-1 - нет вещественных корней
 0 - один корень х1
 1 - два корня х1,х2
}
var D:real;
begin
  D:=b*b-4*a*c;
  if D<0 then SolveX:=-1
  else
    if D=0 then begin
      x1:=(1+b*c0)/(2*c);
      if x1=b then SolveX:=-1 else SolveX:=0
      end
    else begin
      D:=sqrt(D);
      x1:=(1+b*c-D)/(2*c);
      x2:=(1+b*c+D)/(2*c);
      if x1=b then begin SolveX:=0; x1:=x2 end
      else
        if x2=b then SolveX:=0
        else SolceX:=1
      end
end;