При нажатии первой буквы файла в директории где он находится выделяются файлы, которые начинаются на эту букву, следовательно, думаю что самый быстрый способ - А
<span>var i:integer;
n,k:real;
begin
n:=10;
k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.</span>
Program G;
Uses Crt;
Var count, num, ch: integer;
Begin
ClrScr;
Writeln('Год високосный? 1 - да, 0 - нет');
Readln(Ch);
If ch=1 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 29 дней');
else writeln('Некорректный ввод данных')
End;
End
Else if ch=0 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 28 дней');
else writeln('Некорректный ввод данных')
End;
End
Else writeln('Некорректный ввод данных');
Readln;<span>
End.</span>
Все расписал на изображении.