вводиться натуральное число 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.

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