В ошибке сказано, что драйверы на устройство от Nvidia повреждены/неправильно установлены или устарели. Обнови их и посмотри, что будет.
//Паскаль
var i,n:integer;
a:array[1..20] of integer;
begin
n:=0;
randomize;
//заполняем рандомом
for i:=1 to 20 do
a[i]:=random(20);
//считаем, если елемент массива равен шести то увеличиваем переменную n на еденицу
for i:=1 to 20 do
if a[i]=6 then Inc(n);
Writeln('Кол-во шестерок ' , n);
end.<span>
</span>
Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub