Tugas 6

uses crt;
var
i,l:integer;
begin
clrscr;
      for i:=1 to 5 do
      begin
      for l:=i to 5 do
      write(l, ' ');
      textcolor(i);
      writeln;
      end;
      readln;
end.