нужна помошь

[kostan3]

зайди на acmp.ru и ятебе раскажу

[kostan3]

всё написал есди чё я онуфриев константин

[Poma][a]

зайди на acmp.ru и ятебе раскажу

Всмысле на чат acmp?

[kostan3]

я тебе уже написал у тебя окошко не всплывало

[kostan3]

http://www.acmp.ru/icq/index.asp?user=80594

[kostan3]

зайди по ссылке

[Poma][a]

var
  n, d: word;
begin
  reset (input, 'input.txt');
  assign (output, 'output.txt');

  read(n);
  while not eof do begin
    read(d);
    if n > 8 then begin
        Write(ord(d=1)*2027025324+ord(d=6)*6081);
        Halt
    end
  end;
    write(ord(n=3)+(ord(n in [6,8])*n));
end.

208 Кто меньше?)