написать программ у, в которой циклически осуществляется ввод целых чисел с клавиатуры, признаком прекращения ввода является число 0.

var temp:integer;

begin

   repeat

      readln(temp);

   until (temp=0)

end.

вот тело программы 

var i,a,n:longint 

begin

read(n);

 while a>0 do

  write(a);

end.