помогите люди разбирающейся в free pascal

Question

дано натуральное число N приписать к нему такое же число новое число должно быть сформеровано (хранить в перемнной) выведено на экран

Екатерина Смирнова · Accepted Answer

var s:string;i n,c:integer;

str(n,s); 
s:=s+s; 
val(s,n,c); 
write(s);

Юленька Байкалова · Answer

А если нужно без строковых переменных, то можно так: 
 
Var n: longint; 
Begin 
 ReadLn(n); 
 nn:=Trunc(n*Exp(Ln(10)*(Trunc(Ln(n)/Ln(10))+1))+n); 
 WriteLn(nn) ; 
 ReadLn 
End. 
 
Можно еще с помощью циклов, но это скучно.