Дано четное число 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.