Что можно использовать для рисования одинаковых и похожих фигур в
графическом режиме?

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

50*70*2 = 7000 байт вес одной страницы

2.8мб /1024 /1024 = 2`936`012,8 байт

2`936`012,8 байт /7000 байт = 419,4304 страниц

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц