Var A:integer; Begin WriteLn('Введи возраст'); Read(A); if (A>9)and(A<20) then WriteLn(A,' Лет') else Case A mod 10 of 1:Write(A,' Год '); 2..4:Write(A,' Года '); 0,5..9:Write(A,' Лет '); End End.
1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран". 2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.