Răspuns :
Program Augustin;
var
x:array [1..5] of string;
i,n:integer;
begin
Writeln('Introdu limita cuvintelor [n]');
readln(n);
if n<=20 then
begin
for i:=1 to n do
begin
readln(x[i]);
end;
for i:=1 to n do
begin
Writeln(x[n]);
Write(' ');
n:=n-1;
end;
end;
readln;
end.
var
x:array [1..5] of string;
i,n:integer;
begin
Writeln('Introdu limita cuvintelor [n]');
readln(n);
if n<=20 then
begin
for i:=1 to n do
begin
readln(x[i]);
end;
for i:=1 to n do
begin
Writeln(x[n]);
Write(' ');
n:=n-1;
end;
end;
readln;
end.