var c:array[1..5] of integer;
i:integer;
begin
writeln('введите массив');
for i:=1 to 5 do read(c[i]);
for i:=1 to 5 do
if c[i]=4 then c[i]:=-4;
for i:=1 to 5 do write(c[i]:4);
end.