ОТ Напишите программу в паскале через цикл while

1.В машинном представлении количество возможных значений чисел конечно
Да, это верно. Для любых типов и форматов чисел оно ограничено длиной разрядной сетки, в которой представляются эти числа.
2.Не существует наибольшего вещественного числа в машинном представлении
Нет, неверно. Поскольку количество возможных значений чисел конечно (см. 1), то существуют их наибольшее и наименьшее значение в представлении.
3.Результаты вычислений для вещественных чисел будут совершенно точными
Нет, неверно. Не любое десятичное число может быть точно представлено в двоичной системе, тем более, при ограниченной длине разрядной сетки.
4.Результаты вычислений для вещественных чисел будут заведомо неточными, содержащими неизбежную погрешность.
Верно не всегда. Если исходные числа и результат операции между ними точно представляются на разрядной сетке, то и результат вычислений будет точным.
5.Вещественные числа в компьютере заменяются их кодами, которые образуют конечное дискретное множество.
Фактически так оно и происходит.

{Отряд — формирование, состоящее из нескольких человек, достаточно большой численности, сформированное с той или иной целью}
//Но будь по Вашему, мне не сложно
//Dev-C++ 4.9.9.2

#include <iostream>
#include <string>
using namespace std;

int main(){
    string s,smax,sp;
    int z=0;
    int max=0;
    bool b=true;
    bool bsub=false;
    cin>>s;
    for(int i=0;i<s.length();i++)
     for(int j=i+1;j<s.length();j++){
      if(s[i]==s[j]){
      sp=s.substr(i,j-i+1);
      b=true;
      z=0;
       while((z<=(sp.length()-1)/2)&&b){
         b=(sp[z]==sp[sp.length()-z-1]);
         z++;}
       if((b==true)&&(max<sp.length())){
                                   max=sp.length();
                                   smax="";
                                   smax=sp;
                                   bsub=true;
                                   }
       b=true;
       z=0;}}
      if(bsub==true)cout<<smax;
      else
      cout<<s[0];
      cin.get();
      cin.get();
     return 0;
}

Пример ввода 1:
CKACCANCKACBCAN
Пример вывода 1:
ACBCA
Пример ввода 2:
С
Пример вывода 2:
C