Плмогите с информатикой ​

var s:string;

   n, count:integer;

begin

 readln(s);

 count:=0;

 while pos('.', s) > 0 do begin

   n:=pos('.', s);

   delete(s, n, 1);

   count:= count + 1;

 end;

 writeln(count);

end.

Объяснение:

Удачи в тесте :D

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

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.

44100*24*60*2=127008000 бит = 15 мбайт