Решительно пожалуйста все задачи!!!! Буду очень благодарна)))))

Я знаю только первый.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.