Program naplní pole A číslami 1,1,2,2,3,3,4,4,

{ POSTUPNOST2.PAS            Copyright (c)                          }
{ Program naplni pole A císlami 1,1,2,2,3,3,4,4,...50,50.           }
{ Pole sa vypise v tvare                                            }
{     a1                                                            }
{     a2 a3                                                         }
{     a4 a5 a6                                                      }
{     ...                                                           }
{ v každom nasledujúcom riadku (okrem posledného) je vždy o jedno   }
{ císlo viac ako v predošlom.                                       }
{                                                                   }
{ Datum:04.10.2008                             http://www.trsek.com }
 
program postupnost2;
uses crt;
type pole=array[1..100] of integer;
var a:pole;
    i,j,k:integer;
 
procedure riadok;
begin
 writeln;
end;
 
begin
clrscr;
 
  for i:=1 to 50 do
 begin
 a[i*2-1]:=i;
 a[i*2]:=i;
 end;
  for i:=1 to 100 do
  begin
  if a[i] mod 7=0 then textcolor(9) else textcolor(15);
  write(a[i]:4);
  if i mod 20=0 then writeln;
  end;
  readln;
 
begin
 k:=1;
 j:=0;
 for i:=1 to 100 do
  begin
  write(a[i]:3);
  j:=j+1;
    if k=j then
        begin
        writeln;
        j:=0;
        end;
    if j=0 then k:=k+1;
  end;
 end;
readln;
end.