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

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