Второе задание:
var a,b,y: integer;
begin
read(a,b,y);
if ((y<a) and (y>b)) or ((y>a) and (y<b)) then writeln('принадлежит') else writeln('не принадлежит');
<span>end.</span>
Скорей всего приоритет загрузки в биосе был изменён и комп не может загрузить то, на чём стоит приоритет, измени приоритет на загрузку системы, если не помогает, то обнуление