{ POLEZNAK.PAS                                                      }
{ Z pola znakov vypise parne znaky.                                 }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program PoleZnakov;
uses crt;
  var
    Pole_Znakov : string;
    index : integer;
    dlzka : integer;
    Cstr : string;
    
begin
  clrscr;
  writeln('Zadaj pole znakov');
  readln(Pole_Znakov);
  clrscr;
  dlzka := length(Pole_Znakov);
  For index := 1 To dlzka Do
    begin
      IF index mod 2 = 0 THEN
        begin
          Cstr := Cstr + Pole_Znakov[index];
        end;
    end;
  writeln('Znaky na parnych poziciach pola su  : ',Cstr);
  readln;
end.