по решению проблемы с ПК, при включении ПК чёрный экран ну только на первые мин 8-15, позже перезагрузки все работает, это 100% не оперативка би коз, я не давно сменил матку, проц и Озу. Грешу на моник, кабель и не дай Бог видяху. Провод - dvi-d, видяха - Rx 570 4 gb. Если не включить Пк, но включить моник, он работает без проблем, а при включонном пк картинка есть но моник гаснет. Ну тоесть я даже ярлыки запускать могу.

program raf105;

var fam,pol:array[1..100] of string;

n,i:integer;

begin

write('Введите количество детей: ');

readln(n);

writeln('Вводите фамилии и пол (Заглавной буквой М/Ж)');

for i:=1 to n do

begin

 writeln;

 write('[',i,'] ','Фамилия: ');

 readln(fam[i]);

 write('    Пол: ');

 readln(pol[i]);

end;

writeln;

writeln('Фамилии девочек начинающиеся на "А" и мальчиков заканчивающиеся на "в"');

for i:=1 to n do

 if (fam[i][1]='А') and (pol[i]='Ж') or (fam[i][length(fam[i])]='в') and (pol[i]='М')

   then writeln(fam[i]);

end.

Язык программирования PascalABC