22 lines
349 B
ObjectPascal
22 lines
349 B
ObjectPascal
// Öèêë for
|
|
|
|
const n = 20;
|
|
|
|
var i: integer;
|
|
|
|
begin
|
|
writeln('×èñëà îò 1 äî ',n,':');
|
|
for i:=1 to n do
|
|
write(i,' ');
|
|
writeln;
|
|
writeln;
|
|
writeln('×èñëà îò ',n,' äî 1:');
|
|
for i:=n downto 1 do
|
|
write(i,' ');
|
|
writeln;
|
|
writeln;
|
|
writeln('Ìàëåíüêèå àíãëèéñêèå áóêâû:');
|
|
for c: char := 'a' to 'z' do
|
|
write(c,' ');
|
|
writeln;
|
|
end. |