Создайте фигуру в программе qbasic используя круг и прямоугольник, первая команда screen 12

Деревья в лесу или в парке, или одиноко стоящее дерево посреди поля - довольно распространённый объект рисования. Без дерева нельзя изобразить пейзаж или красивый фон, состоящий из леса. С первого взгляда дерево рисуется очень просто – есть ствол, ветви, листья, но на практике художник сталкивается с неожиданными трудностями и изобразить дерево становиться настоящей проблемой. На этом уроке мы попробуем научиться некоторым рисования деревьев.Будет весьма полезным для любого художника научиться рисовать различные деревья, различной сложности, различных видов и в разные времена года и погоды.Обучение на практике.Лучший изучить рисунок дерева – это рисовать их с натуры. Деревья с миллионами ветвей и миллионами подвижных листьев и их оттенков зелёного кидают настоящий вызов художнику.

1)
uses crt;
var a=array[1..8] of integer;
b=array[1..8] of integer;
i,min,j:integer;
begin
randomize;
min:=16;
for i:=0 to 8 do
begin
a[i]=random(30)-15;
if (a[i]<min)
min:=a[i];
end;
j:=0;
for i:=0 to 8 do
if (a[i] = min)
begin
b[j] = i;
j = j+1;
end;
for i:=0 to j do
writeln(b[i]);
end.
2)
uses crt;
var a=array[1..51] of integer;
i,sum,j,h:integer;
begin
h := 1;
for i:=1 to 51 do
begin
a[i]=i+h
h:=h+1;
if (i = 5 or i = 6 or i =7 or i = 8) there
begin
sum := sum=a[i];
j := j+1;
end;
end;
writeln(sum/j);
end.
3)
uses crt;
var a=array[1..12] of integer;
i,b:integer;
begin
randomize;
readln(b)
for i:=1 to 12 do
begin
a[i]=random(100)
if (a[i] = b) there
j := j+1;
end;
writeln(j);
end.