Вводиться натуральное число n вывести за числом n еще одно такое же.решать через while. язык паскаль. пример , ввожу число n 999 оператор врайтлайн выводит 999999.

Var n, i: integer;
 begin
  i := 0;
  readln(n);
  while i < 2 do
  begin
    write(n);
    i := i + 1;
  end;
end.