Алгоритмы с комбинацией циклов и условных оператор, Помогите решить 1 задачу Опции

[GORBUNKI]

Помогите решить 1 задачу:
1.Дано натуральное число. Приписать к нему такое же.
Заранее Спасибо

[Altair]

Это делается через str. Вводим число, переводим его в string, а дальше все вроде понятно 

Для тех, кто не понял:

Код

Program _123_123123;
var
a:integer;
s,s1:string;

begin
Write('введите число: '); Readln(a);
str(a,s);
str(a,s1);
s:=s+s1;
Writeln('Число и приписанное к нему точно такое:');
Writeln(s)
end.

А вот так не сдаст он эту работу, если в задание сказанно, что использовать надо циклы и условные операторы!
(хотя можно - переписать процедуру STR)