Помогите! Надо сделать любые 3 задания с while ?!

Первая задача и последние две
1)var n, i: integer;
begin
read(n);
inc(i);
while n <> i do begin
  writeln('i, ','');
  inc(i);
  end;
end.
2) var n: integer;
begin
read(n);
while n <> 0 do begin
  writeln('Фамилия');
  dec(n);
  end;
end.
3) var n: integer;
begin
read(n);
while n <> 0 do begin
  write('+');
  dec(n);
  end;
end.
Поставь как лучшее решение пожалуйста