Кривая Шибкина или задание по информатике на зимние каникулы.

Зимние каникулы длинные и я предлагаю ученикам 10 и 11 классов в перерывах между отмечанием Нового года немного по программировать.

В книге С.В. Филичева, «Занимательный Basic», есть глава Кривая Шибкина. В которой Доктор Шибкин, пытался составить программу, рисующую на экране компьютера вертикальные полосы.Он написал программу:

program n1;
uses crt,graphabc;
var a:integer;
begin
 clrscr;
  SetWindowSize(600,600);
   SetPenColor(clDkGray );

 a:=0;
 while (a<600) do begin
                  line(0,a,a,600);
                  a:=a+10;
                end;
 end.

И получил вот какое изображение:

Предлагаю превзойти Доктора и составить  программу строящую следующий орнамент. В моей программе, использовано 3 цикла и две переменных. По этому предлагаю превзойти и своего учителя использовав меньшее количество переменных и циклов. Для 10 класса это работа обязательная с нее начнется следующая четверть. Для 11 класса только для тех, кто планирует получить 4 или 5 по информатике. Даже если Вам не удастся построить все изображение, на зачет принимаются и его фрагменты. 

Оригинальная идея подсмотрена в этом рисунке: