Объяснение:
Если неделю назад у тебя было 4 гб, то по всей видимости у тебя в компьютере стоит 2 планки оперативной памяти по 2 гб. Есть несколько вариантов что могло случиться:
1. Одна планка оперативной памяти просто вышла из строя (сгорела, неисправна);
2. Плохой контакт с материнской платой (когда устанавливается память в слот должен был характерный щелчок)
3. Если память показывает ошибки или не обнаруживается, то стоит проверить, не скопилась ли грязь на контактах и не повреждены ли они.
Лучше можно узнать что с памятью - это просто вставить планки по отдельности в другой компьютер (рабочий). Либо воспользоваться утилитой Memtest86. В любом случае если такая проблема возникла, лучше всего отнести компьютер в сервис.
var A,s1,s2: integer;
begin
write('Введите число: '); readln(A);
s1 := (A div 1000) + (A div 100) mod 10;
s2 := (A div 10) mod 10 + A mod 10;
if s1 = s2 then writeln('Yes')
else writeln('No');
end.