n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/RBcc17.pas

22 строки317 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ���������� ������� cc17 ��� ������
uses Robot;

begin
  Task('cc17');
  for var i:=6 downto 1 do
  begin
    for var j:=1 to i do
    begin
      for var k:=1 to j do
      begin
        Paint;
        Up;
      end;
      for var k:=1 to j do
        Down;
      Right;  
    end;
    Right;
  end;
  Left;
end.