資訊學奧林匹克競賽-小魚的數字遊戲

小魚的數字遊戲

題目描述

小魚最近被要求參加一個數字遊戲，要求它把看到的一串數字（長度不一定，以0結束，最多不超過100個，數字不超過2^32-1），記住了然後反着念出來(表示結束的數字0就不要念出來了)。這對小魚的那點記憶力來說實在是太難了，你也不想想小魚的整個腦袋才多大，其中一部分還是好吃的肉！是以請你幫小魚程式設計解決這個問題。

輸入輸出格式

輸入格式：

一行内輸入一串整數，以0結束，以空格間隔。

輸出格式：

一行内倒着輸出這一串整數，以空格間隔。

輸入輸出樣例

輸入樣例#1：

3 65 23 5 34 1 30 0      

輸出樣例#1：

30 1 34 5 23 65 3      

var
a:array[1..10000] of longint;
i,n:longint;

begin
	assign(input,'in.txt');
	reset(input);
	i:=0;
	repeat
		inc(i);
		read(a[i]);
	until a[i]=0;
	n:=i-1;
	for i:=n downto 1 do
	begin
		if i=1 then write(a[i])
		else write(a[i],' ');
	end;
end.