Дано четное число N (>
0) и символы C1 и C2. Вывести строку длины N,
которая состоит из чередующихся символов C1 и C2,
начиная с C1.

program chisla;var  a,n:integer;c1,c2:char;begin  writeln('введите количество символов');  readln(n);  writeln('введите сами символы');  readln(c1,c2);  if frac(n/2)=0 then    for a:=1 to n div 2 do      begin        write(c1,c2);      end  else    begin      for a:= 1 to n div 2 do        begin          write(c1,c2);        end;      write(c1);    end;end.