program PositiveNumbers;

var
numbers: array$$\mathrm{1..10}$$ of integer;
i: integer;

begin
// Ввод чисел с клавиатуры
writeln${}^{\prime }Введите10чисел{:}^{\prime }$;
for i := 1 to 10 do
begin
readln$numbers[i]$;
end;

// Замена отрицательных чисел их модулями
for i := 1 to 10 do
begin
if numbers$$i$$ < 0 then
begin
numbers$$i$$ := abs$numbers[i]$;
end;
end;

// Вывод полученных чисел
writeln${}^{\prime }Полученныечисла{:}^{\prime }$;
for i := 1 to 10 do
begin
writeln$numbers[i]$;
end;

end.