Харьковская районная олимпиада [задания], Флогги вернулси )) Опции

[Флогримм]

вот я и вернулся как тут все изменилось.. какой форум стал красивый... круто.. круто, блин! всех с наступающим!!

я собсна по какому вопросу. давеча писал олимпиаду районную, задания ниже. меня интересуют ваши соображения по поводу 3 и 4 задач. сразу скажу, что с 4й я не справился (

[xds]

Решение 3-й задачи.

program Prob3;

procedure CheckWord(const Word: String);
var
  i, j, k: Integer;
  f: Boolean;
begin
  if Word <> '' then
    for i := (Length(Word) + 1) shr 1 to Length(Word) do
      for j := 1 to Length(Word) - i + 1 do
        begin
          f := True;
          for k := 0 to i shr 1 - 1 do
            if Word[j + k] <> Word[j + i - 1 - k] then
              begin
                f := False;
                Break;
              end;
          if f then
            begin
              Writeln(Word);
              Exit;
            end;
        end;
end;

var
  c: Char;
  w: String;
  f: Boolean;

begin
  Assign(Input, 'input.txt');
  Reset(Input);
  w := '';
  f := True;
  while not Eof do
    begin
      Read( c);
      case c of
      ' ':
        begin
          CheckWord(w);
          w := '';
          f := True;
        end;
      '0'..'9':
        if f then w := w + c;
      else
        begin
          w := '';
          f := False;
        end;
      end;
    end;
  CheckWord(w);
  Close(Input);
end.