Уменя есть ноут я сделал полную проверку на нём антивирусом 360total всё прошло успешно сделал оптимизацию через этот антивирус сказали отключить в некоторые вещи я отключил мне сказали перезпустить ноут я начал перезапускать но экран стоял включённым и показывал тёмный экран(10мин) тогда я выключил и включил всё осталось также .

переустанавливай винду.у тебя слетела винда походу

другого способа решения не вижу

Const n=10; var    i: integer;   var a: array[1..n] of integer; begin   for i: =1 to n do begin     a[i]: =random(1,50);     write (a[i]: 3);   end;   writeln;     writeln ('элементы, кратные 5: ');     for i: =1 to n do begin     if a[i] mod 5 =0        then write (a[i]: 3);   end; end. ===================================   30 45   2   5 26 47 30   7   4   9 элементы, кратные 5:   30 45   5 30 ===================================

Uses graphabc; var x,y,r,x1,y1,i: integer; begin x: =325; y: =225; r: =200; for i: =1 to 360 do  begin  setpencolor(clblack);   x1: =x+round(r*cos(i*pi/180));   y1: =y-round(r*sin(i*pi/180));   line(x,y,x1,y1);   end; end. uses graphabc; var x,y,r,x1,y1,i: integer; begin x: =325; y: =225; r: =200; for i: =1 to 135 do  begin  setpencolor(clblack);   x1: =x+round(r*cos(i*pi/180));   y1: =y-round(r*sin(i*pi/180));   line(x,y,x1,y1);   end; end. uses graphabc; var x,y,r,x1,y1,i: integer; begin x: =100; y: =50; r: =200; for i: =1 to 360 do  begin  setpencolor(clblack);   x1: =x+round(r*cos(i*pi/180))+200;   y1: =y-round(r*sin(i*pi/180))+200;   line(x,y,x1,y1);   end; end.