На телевизоре который я использую как монитор при подключении появилось размытие или нечёткость

1. Первая причина нечеткого изображения неправильно установленнразшерениение, которое экран имеет физически.

Выбрать разрешение экрана, которое ваш монитор или телевизор имеет физически.

2. Размытый текст при масштабировании Windows 10. Если проблема с размытостью возникла после изменения масштаба.

1) Зайдите в панель управления, выберите экран;

2) Нажмите на «Установить настраиваемый уровень масштабирования».

3) Убедитесь, что в нем установлено 100%, если нет — установите и перезагрузите компьютер.

Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.

Var n1,n2,A,B:integer;
    D:byte;
Begin
WriteLn('1 - Ввести n1 и n2, 0 - выход');
ReadLn(D);
While D = 1 do
   Begin
   Write('n1 = ');ReadLn(n1);
   Write('n2 = ');ReadLn(n2);
   For n2:= n1 to n2 do
       Begin
       A:=n2;
       B:=0;
       While A>0 do
          Begin
          B:=B*10+A mod 10;
          A:=A div 10;
          End;
       if B = n2 then Write(n2,' ')
       End;
   WriteLn;
   WriteLn('1 - продолжить, 0 - выйти');
   ReadLn(D);
   End;
End.

Правда, я не уверен, что она правильно работает на любых числах, поэтому ещё одна версия:

Var
   n1,n2,D:integer;
   A,B:string;
Begin
WriteLn('1 - Ввести n1 и n2, 0 - выход');
ReadLn(D);
While D = 1 do
   Begin
   Write('n1 = ');ReadLn(n1);
   Write('n2 = ');ReadLn(n2);
   For n2:= n1 to n2 do
       Begin
       A:=IntToStr(n2);
       B:='';
       For D:= Length(A) downto 1 do
           B:=B+A[D];
       if A=B then Write(n2,' ')
       End;
   WriteLn;
   WriteLn('1 - продолжить, 0 - выйти');
   ReadLn(D);
   End;
End.