Вывести строку длины N (N — четное), которая состоит из чередующихся символов C1 и C2, начиная с C1.- Pascal(Паскаль)

var
  s: string;
  C1, C2: char;
  i, n: integer;

begin
  readln(n);
  C1 := 'a';
  C2 := 'b';
  s := '';
  For i := 1 to (n div 2) do
    s := s + C1 + C2;
  writeln(s);

end.