program raf105;
var a:array[1..100] of real;
b,i,j:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
b:=1;
while b<>0 do
begin
j:= j+1;
readln(b);
if b<0
then a[j]:= 5
else a[j]:= 2;
end;
writeln;
for i:=1 to j-1 do
writeln(a[i]);
end.
Программа написана на языке PascalABC.NET
