1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран".
2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.
Размер символов, последовательность символов, параметры страницы, <span>параметры абзаца. (может быть и верно)</span>
program z1;
var a,b,c:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if a>b then c:=a-b else c:=b-a;
writeln('c=',c);
end.
program z2;
var a,b,c:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if ((a mod 2)=0)or((b mod 2)=0)or((c mod 2)=0)then writeln('четное') else writeln('нечетное');
end.
По последнему утверждению следует вывод,что все чёрные предметы-кубы,а шары быть чёрными не могут.Шаров 4,а красных предметов пять.Значит все шары красные и один куб красный(кубы могут быть красными т к это не противоречит закону условию).Значит чтобы понять что все чёрные предметы это кубы,нужно снять покрывало с 4 шаров.