Сделать программу в small basic расчерчивающую графическое окно в клеточку

var

x: real;

begin

readln(x);

writeln(round(x));

end.

24576/8=3072 символа

ответ: 3072 символа

1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.