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

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 s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

1) 28

2) 6

3) 5

4) 1

5) 7

6) 27

итого:

1, 6, 5, 2, 3, 4.