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