Дано вектора a и b, которие составляются с пяти компонент.вичеслить: ∑(ai)*∑(bi)

Const n=5;
var a,b:array[1..n] of integer;
i,sa,sb:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(10)-5;
 write(a[i]:3);
 end;
writeln;
for i:=1 to n do
 begin
 b[i]:=random(10)-5;
 write(b[i]:3);
 end;
writeln;
sa:=0; sb:=0;
for i:=1 to n do
 begin sa:=sa+a[i]; sb:=sb+b[i]; end;
writeln('sa=',sa,'  sb=',sb,'  P=',sa*sb);
end.

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

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

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

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

в) Проверить "железо", т. е. попробовать подключить другой "Жёсткий диск"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.