Які дії можна виконувати з об'єктом в 3d побудові

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

program sdss;

uses crt;

var a,b,i: integer;

      c: real;  

begin

clrscr;

readln(a,b);

for i: =a to b do

  c: c+i;

c: =c/(b-a+1);

writeln(c: 2: 4);

readkey;

end. 

не наю че за гамбас

пишу на паскале

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

i,n,k5,k4,k2: integer;

s: real;

begin

  read(n);

  for i : = 1 to n do begin

      writeln(' оценку учиника ',i);

      readln(a[i]);

      s: =s+a[i];

      if a[i]=5 then k5: =k5+1;

      if a[i]=4 then k4: =k4+1;

      if a[i]=2 then k2: =k2+1;

  end;

  writeln(s/n,k5,k4,k2);

end.