Какие числа тут нужны?
!

64000*16=1024000 б=128000 б=125 кб

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

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.