program remplissage_tab;
uses wincrt;
type tab=array[1..10]of string;
var P,Q:tab;
n,i,j:integer;
test:boolean;
T:tab;
BEGIN
repeat
write('donner un entier n:');readln(n);
until n in [1..100];
for i:= 1 to n do
BEGIN
repeat
write('P[',i,']=');readln(P);
if length(P)=0 then test:=false
else
BEGIN
j:=0;
repeat
j:=j+1;
test:=(P[j] in ['1'..'9']);
until (test=false) or (j=length(p));
END;
until (test);
END;
for i:=1 to n do
begin
for j:= length(P) downto 1 do
Q:=Q+P[j];
end;
for i:=1 to n do
writeln(q);
END.
uses wincrt;
type tab=array[1..10]of string;
var P,Q:tab;
n,i,j:integer;
test:boolean;
T:tab;
BEGIN
repeat
write('donner un entier n:');readln(n);
until n in [1..100];
for i:= 1 to n do
BEGIN
repeat
write('P[',i,']=');readln(P);
if length(P)=0 then test:=false
else
BEGIN
j:=0;
repeat
j:=j+1;
test:=(P[j] in ['1'..'9']);
until (test=false) or (j=length(p));
END;
until (test);
END;
for i:=1 to n do
begin
for j:= length(P) downto 1 do
Q:=Q+P[j];
end;
for i:=1 to n do
writeln(q);
END.