Тема паскаль создать программу вывода 5 чисел на экран в обратном порядке

Var s:string;
a,i:integer;
begin
s:='';
for i:=1 to 5 do begin
read(a);
s:=a+' '+s;
end;
writeln(s);
end.