var temp:integer;
begin
repeat
readln(temp);
until (temp=0)
end.
вот тело программы
var i,a,n:longint
read(n);
while a>0 do
write(a);
