Как проводили время жители Древнего Рима?

Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.