В руки аналитика попала программа, которая выводит на экран число 6420. Однако при копировании исходного кода произошла ошибка. Помогите ему определить, что должно было быть на месте символа █. var

i,size:integer;

  r:array of char;

begin

size := ord('&') - ord('!');

setlength(r,size);

i := ord('+');

for i := (ord('$') - ord('$')) to 
(ord('%') - ord('!')) do

begin

r[i] := chr(ord('█') - ord(#9)- 
(ord('>') - ord('<')) * i);

end;

r[ord('.')-ord('*')] := 
chr(ord('~')-ord('~'));

for i := 0 to size - 1 do

write(r[i]);

end.

Знак "?"если все расписать, то получится так:size=5for i:=0 to 4 do  begin    r[i]:= chr(█-9-2*i)  end;r[4]= пустойfor i:=0 to 4 do write(r[i]);Число 6420.htmlкод 6 - 54, и его по идее достаточно, чтобы найти █вернемся на строчку, где был █r[i]:= chr(█-9-2*i)r[0]:= chr(█-9-2*0)=chr(54) █-9=54█=54+9=63Cмотрим, какой знак находится под номером 63, и это  "?"и, действительно, если подставить ? в программу и проверить, в конце выдает 6420 :)