Составьте блок схему вычисления значения выражения y=x2-2ax-10

Символы лат. алфавита от A=41H=4*16+1=65 до Z=5AH=5*16+10=90
Среди них кратны 2 и 3, то есть кратны 6, коды:
B = 66, H = 72, N = 78, T = 84, Z = 90.
В Паскале код буквы выводит функция ord(c), где с имеет тип char.
Наоборот, букву по коду выводит функция chr(i), где i - число.
Begin
var i: integer
for i := 66 to 91 do
{ begin
writeln chr(i);
i := i+5;
end }
End.
В Паскале нельзя задать цикл с произвольным шагом (или можно, но я не помню, как), поэтому я внутри цикла прибавляю 5, а сам цикл прибавляет еще 1, и получается шаг 6.
Если не получается, исправьте i+5 на i+6.
В итоге вы должны получить буквы B, H, N, T, Z.
Если надо еще и маленькие буквы, то их коды от a=61H=97 до z=7AH=122,
из них кратны 6 : f = 102; l(L) = 108; r = 114; x = 120.
Тогда нужно в прогамму добавить второй цикл:
for i := 102 to 121 do
{ begin
writeln chr(i);
i := i+5;
end }
End.

program sorting;

const

 N = 10;

var

 v: array[1..N] of integer;

 d: integer;

 i, t: integer;  

 k: boolean;  

begin

 randomize;

 write('ДО сортировки:    ');

 for i := 1 to N do

 begin

   readln(v[i])

   write(v[i]:6);

 end;

}  

 d := N div 2;

 while(d > 0) do

 begin

   k := true;  

   while k do

   begin

     k := false;

     i := 1;

     for i := 1 to N - d do

     begin

       if(v[i] > v[i + d]) then

       begin

         t := v[i];

         v[i] := v[i + d];

         v[i + d] := t;

         k := true;

       end;

     end;

   end;    

   d := d div 2;

 end;

 writeln;

 write('ПОСЛЕ сортировки: ');

 for i := 1 to N do

   write(v[i]:6);

 writeln;

end.