11 lines
232 B
ObjectPascal
11 lines
232 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD> for. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
const n = 20;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
for var i:=1 to n do
|
|||
|
|
write(Random(2,5),' ');
|
|||
|
|
writeln;
|
|||
|
|
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> 1 <20><> 99: ');
|
|||
|
|
for var i:=n downto 1 do
|
|||
|
|
write(Random(1,99),' ');
|
|||
|
|
end.
|