Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
