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

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

как правильно пишется триугольник или треугольник?

  треугольник

сочинение о мини ноутбуках,                                                   : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё   больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее