Постройте индекс по полю Названия блюд баллов!!!

триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

program num1; uses crt; var a,b,c : real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) or (b=c) or (c=a) then write ('высказывание < среди трех данных целых чисел есть хотя бы одна пара > истино') else write('высказывание < среди трех данных целых чисел есть хотя бы одна пара > ложно'); end.