Здравствуйте, купили изогнутый монитор samsung, зашёл в игру GTA 4 и появился эффект "старого фильма" с белыми пикселями, на рабочем экране вроде такого нет?

Var n,m,osn: integer; function nmbdec(var n,osn: integer): integer; var nmb,l,s,k: integer; begin   nmb: =0;   s: =0;   k: =n;   l: =1;   while k> 0 do   begin     s: =k mod 10;     k: =k div 10;     nmb: =nmb+l*s;     l: =l*osn;   end;   result: =nmb; end; { конец функции} begin   write('число:   ');   readln(n);   write('квадрат какого числа:   ');   readln(m);   osn: =10;   while osn> =2 do   begin       osn: =osn-1;     if nmbdec(n,osn)=sqr(nmbdec(m,osn))  then     begin       writeln('основание системы = ',osn);       break;     end;   end; end.

Var k,a,b,m,v: real; begin; readln(a); //ввод значений readln(b); readln(k); m: =k;     //сохраняем значение цены k: =k*100;   //так как в по условию вводятся сантиметры a: =a/12; //делим ширину на ширину рулона, получаем кол-во рулонов b: =b/k;   //делим высоту на высоту рулона, получаем кол-во рулонов if a> =b then //чтобы точно хватило на всё     begin;       v: =m*a; //финальная стоимость=цена на 1 рулон*рулоны       writeln(v);     end else     begin;       v: =m*b; //аналогично       writeln(v);     end; end.