20 lines
368 B
ObjectPascal
20 lines
368 B
ObjectPascal
// Цикл for
|
|
|
|
const n = 20;
|
|
|
|
begin
|
|
Println('Числа от 1 до', n, ':');
|
|
for var i := 1 to n do
|
|
Print(i);
|
|
Println(NewLine);
|
|
|
|
Println('Числа от', n, 'до 1:');
|
|
for var i := n downto 1 do
|
|
Print(i);
|
|
Println(NewLine);
|
|
|
|
Println('Маленькие английские буквы:');
|
|
for var c := 'a' to 'z' do
|
|
Print(c);
|
|
end.
|