Написать программу (паскаль) для нахождения корней квадратного уравнения и ответ

x²-x-6=0

#include <iostream>
using namespace std;

int main()
{
    double S = 0;
    int N = 0, K = 0, A;
    cout <<"K = ",cin >> K;
    for(int i = 0; i < K; i++)
    {
        cout <<"Nabor "<<i<<": ";
        S = 0;
        N = 0;
        cin >> A;
        while(A != 0)
        {
            S+=A;
            N++;
            cin >> A;
        }
        if (N!=0) cout <<"Sr = "<<S/N<<"\n";
        else cout <<"Na noll delit' nel'zja!\n";
    }
    return 0;
}

#include <iostream>
#include <cstring>

int main() {

char* text1 = "Слово";
char* text = "Как то текст с гласными на конце кок";

char* newText = new char[strlen(text)];

int lastStop = 0, lastIter = 0;
for (int i = 0; text[i] != '\0'; i++) {
bool copyIt = false;

if (text[i] == ' ') lastStop = i;


if (text[i + 1] == ' ' || text[i + 1] == '\0') {
for (int j = 0; text1[j] != '\0'; j++) {
if (text[i] == text1[j]) {
copyIt = false; break;
}
copyIt = true;
}

}

if (copyIt == true) {
for (int j = lastStop; j <= i; j++, lastIter++)
newText[lastIter] = text[j];
}
}

for (int i = 0; i < lastIter; i++)
std::cout << newText[i];

std::cout << "\n";

return 0;
}