Дан массив x1, x2, … x15. все отрицательные элементы массива заменить на 1, а положительные элементы массива заменить на 5. вывести на печать полученный массив.

Var
x:array [1..15] of integer;
i:integer;
begin
writeln('Введите массив');
for i:=1 to 15 do begin
read(x[i]);
if x[i]<0 then
x[i]:=1
else
x[i]:=5;
end;
for i:=1 to 15 do
write(x[i],' ');
end.