написать программ у, в которой циклически осуществляется ввод целых чисел с клавиатуры, признаком прекращения ввода является число 0.
var temp:integer;
begin
repeat
readln(temp);
until (temp=0)
end.
вот тело программы
var i,a,n:longint
read(n);
while a>0 do
write(a);