22 lines
349 B
ObjectPascal
22 lines
349 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD> for
|
|||
|
|
|
|||
|
|
const n = 20;
|
|||
|
|
|
|||
|
|
var i: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><> 1 <20><> ',n,':');
|
|||
|
|
for i:=1 to n do
|
|||
|
|
write(i,' ');
|
|||
|
|
writeln;
|
|||
|
|
writeln;
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><> ',n,' <20><> 1:');
|
|||
|
|
for i:=n downto 1 do
|
|||
|
|
write(i,' ');
|
|||
|
|
writeln;
|
|||
|
|
writeln;
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:');
|
|||
|
|
for c: char := 'a' to 'z' do
|
|||
|
|
write(c,' ');
|
|||
|
|
writeln;
|
|||
|
|
end.
|