Используя вс алгоритмы, запрограммируйте в среде графического исполнителя Чертёжник рисование следующих фигур

|з       з|

|         з|

|з   з     |

50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт

10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт

program a1;

  uses crt;

  var a: array[1..31] of longint; k,i: integer;

begin

  clrscr;

  for i: =1 to 31 do begin

  write('введите температуру ',i,' числа: ');

  readln(a[i]);  

  if a[i]< 0 then k: =k+1;

  end;

writeln('  количество дней в которые были заморозки = ', k);

readln

end. 

p.s. если паскаль abc, то выделенное писать не обязательно 

16 этажей кодируются 4 битами