нужна помошь

[kostan3]

как сократить этот код?

var
  i, n, d: word;
  begin
  read(n);
  if (n=3) then begin write(1); end;
    if (n=8) or (n=6) then begin write(n); end;
  for i := 1 to n do begin
    read(d);
    if (n>8) and (d=1) then begin write(2027025324); halt(0); end;
    if (n>8) and (d=6) then begin write(6081); halt(0); end;
    end;
end.

пока минимум это 223 символа помогите сократить

[BDA]

var
  i, n, d: word;
begin
  read(n);
  if n = 3 then write(1);
  if (n=8) or (n=6) then write(n);
  for i := 1 to n do begin
    read(d);
    if (n>8) and (d=1) then begin write(2027025324); halt(0); end;
    if (n>8) and (d=6) then begin write(6081); halt(0); end;
  end;
end.

Это первое, что можно сделать, не задумываясь.
Пытаетесь попасть в топ по длине кода?)
Можно попробовать переписать на другой язык.
Да и без самой задачи трудновато придумать оптимизации.

[Poma][a]

var
  i, n, d: word;
begin
  read(n);
  if n=3 then write(1);
    if n in [6,8] then write(n);
  for i := 1 to n do begin
    read(d);
    if n>8 then  begin
       case d of
          1 : Write(2027025324);
          6 : Write(6081) 
       end;
       Halt
     end
    end
end.

[kostan3]

а ещё короче можно

[Poma][a]

Это вопрос? Или утверждение?

[kostan3]

вопрос!!!!!!!!!!!

[kostan3]

вот задача http://www.acmp.ru/?main=task&id_task=571

[Poma][a]

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

  read(n);
  for i := 1 to n do begin
    read(d);
    if n>8 then  begin
       case d of
          1 : Write(2027025324);
          6 : Write(6081)
       end;
       Halt
     end
    end;
    write(ord(n=3)+(ord(n in [6,8])*n));
end.

Меньше - навряд ли..

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

  read(n);
  for i := 1 to n 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.

На 3 символа меньше

[kostan3]

ты монстр!!!!!!!

[Poma][a]

А не откроете ли секрет : Как Вы убираете 1 символ из моего кода?