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