Создайте словесный алгоритм и блок-схему: проверить есть ли дома гречка​

Const   ru : array[1..33] of char    =        ('а','б','в','г','д','е','ё','ж','з','и',                                                                         'й','к','л','м','н','о','п','р','с','т',                                                                         'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',                                                                         'э','ю','я');   en : array[0..33] of string = (' ','a','b','v','g','d','e','ye','zh','z','i',                                                                         'y','c','l','m','n','o','p','r','s','t',                                                                         'u','f','h','c','ch','sh','sch','`','ы','',                                                                         'ea','yu','ja'); { транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }   function getindex(ss : char) : byte; var ii : byte; begin   ii: =1;   while (ii< =33) and (lowercase(ss)< > ru[ii]) do inc(ii);   if ii in [1..33] then getindex: =ii else getindex: =0; end; function trans(s : string) : string; begin   if length(s)> 0 then trans: =en[getindex(s[1])]+trans(copy(s,2,length(s)-1))     else trans: =''; end; begin   writeln(trans('паскаль'));   writeln(trans('ява')); end.

Это в том случае, когда нужно, чтобы компьютер сам выдавал рандомные числа: var a: array [1..100] of integer; i: integer; begin for i: =1 to 100 do     begin a[i]: =random (100)-50; if (a[i] mod 3=0)and(a[i] mod 6< > 0) then  write(a[i]);     end; end. если же есть определенный ряд чисел, то программа будет выглядеть вот так: var a: array [1..100] of integer; i, n: integer; begin read(n); - здесь вводим кол-во чисел. for i: =1 to n  do     begin read(a[i]); - вводим числа с клавиатуры. if (a[i] mod 3=0)and(a[i] mod 6< > 0) then  write(a[i], '  ');     end; end.