Постоянно пере загружается компьютер подскажите что делать. И выдает не мой интерфейс.

интернет?( заранее спасибо:*

известно что он был представлен в 16-битной кодировке Unicode, а на одной странице - 400 символов

Паскаль. Введите любое число и выведите на экран наибольшую цифру в числе.
Например ввожу 5683, а он мне должен вывести: 8.
Начало программы я допер:
program z1;
var n:integer;
begin
K:=0;
writeln('Введите любое число');
readln(n);
while n<>o do begin
n:=n div 10;
k:=k+1;
end;
... Тем самым мы нашли количество цифр в числе, а вот что делать дальше я не знаю(

остановлена, т. к. один из драйверов сообщил об ошибке (Код 43). Нашла в интернете, что делать... Общие свойства, вызвать Мастера неполадок. ГДЕ ИСКАТЬ ЭТИ ОБЩИЕ СВОЙСТВА? Короче, помогиииите

компьютер - не грузит фотографии, вместо видео на ютубе просто квадрат, музыку тоже не грузит, Не догружаются полностью или не грузятся вовсе некоторые сайты (очень долго) во всех браузерах, некоторые напротив легко. Сайты часто отображаются некорректно. Иногда (после обновлений) сайты начинают нормально грузится после перезагрузки все повторяется снова, иногда перестает работать flash. Открываются вкладки с рекламой, на которые я даже не переходила. Проверяла антивирусником Avast, делала полное сканирование, но вирусов не обнаружено, очищала с Ace Utilities. Но все равно не помогает=( А в компьютерах я не очень разбираюсь.. .
Как вылечить компьютер? Помогите, пожалуйста!

дорабатывать.....не знаю что делать((((