2. Три кирпича укладывают на поверхность стола разными как указано на рисунке. Что можно сказать о производимых в разных случаях давлениях на стол? Напишите ответ, используя слова «давление»,«площадь»,«сила». 1) больше N1: 2) больше и случаях N2 и 3 : 3) одиниковы во всех случаях.

Т. к. не подробно написано, то можно предположить что стираются текущие результаты работы? При том что автор выбирал сохранить файл с результатами работы, сохранял всё?

Если автор это имел ввиду, то:

"а) Проверить антивирусом;

б) Не включенн ли режим, подобный как есть в Акронис, позволяющий попробовать что-то установить, чтобы узнать как совместима новая программа/драйвера, а при перезагрузке когда всё восстанавливается к первоначальному уровню? Если включен - отключить.

в) Проверить "железо", т. е. попробовать подключить другой "Жёсткий диск"HDD (если есть) и тот HDD который был у вас на другом ПК: будет ли проблема на другом ПК с вашим HDD и с "чужим" HDD на вашем ПК, т. е. проверить эти 2 варианта.
Если Ваш HDD на другом ПК вторым HDD когда был подключен к нему будет сохранять всё нормально, то проблема может быть в программах и ОС на Вашем HDD или контроллере вашего ПК,
загрузившись с другого HDD подключенного основным к вашему ПК - если всё сохраняет, то проблема не с контроллером вашего ПК.

О совместимости конкретной материнской платы с вашим HDD не говорим, раньше-то вы работали нормально и всё сохранялось же?

Также запустить тесты оборудования (если есть такая программа для тестов) : проверить контроллер материнской платы и Жёсткого диска.

Program prognoz;
var   Z, K, p, q: real;
            M: Integer;
BEGIN
Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z);
Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K);
Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p);   
Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q);   
M := 2;
Z := Z*(1+p/100);
K := K*(1+q/100);
while (Z >= K) AND (M < 13) do
begin
WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.');
Inc(M);
Z := Z*(1+p/100);
К := K*(1+q/100);
end
END.