Challenguri simple

Haideti sa facem niste mici Challenguri in care primul care care termina respectivul program cu brio sa poata da enuntul pentru urmatorul.Urmaresc ceva foarte simplu dar captivant
Enunt: faceti un simplu program in care se citeste de la tastatura un nr intreg de 3 cifre iar acesta trebuie prelucrat astfel incat sa fie afisat fara cifra din mijloc
e simplu..puteti da "Challenguri" nu numai din probleme dar si chestii mai interesante gen spargerea unui modest cod..folosirea uneltei potrivite la momentul potrivit...etc

Am facut si eu la repezeala programul ( cu vectori ) , sa nu fie chinuiala prea mare ..

Code:

program pascal;
var n,d,k,i,aux:longint;
v:array[1..15] of word;
begin
readln(n);
d:=n;
i:=1;
while d<>0 do begin
v[i]:=d mod 10;
inc(i);
d:=d div 10;
end;
k:=i-1;
for i:=1 to k div 2 do begin
aux:=v[i];
v[i]:=v[k-i+1];
v[k-i+1]:=aux;
end;
writeln('Numarul fara cifra din mijloc este : ');
for i:=1 to k div 2 do
write(v[i]);
for i:=(k div 2) + 2 to k do
write(v[i]);

readln;
end.