Laba 7

program lab7;
{$APPTYPE CONSOLE}
uses
 SysUtils;
 var st:string;
     p1,p2:integer;
 procedure STARS(const s:string; var rez1,rez2:integer);
  var stn:string;
      kn,km,i:integer;
  begin
    stn:='';
    kn:=0;
    km:=0;
    rez1:=pos('*',st);
    for i:= 1 to length(st) do begin
      if st[i]='*' then begin
        inc(kn);
      end;
      if kn>km then begin
        km:=kn;
      end;
      if st[i]<>'*' then begin
        kn:=0;
      end;
    end;
    for i := 1 to km do begin
      stn:=stn+'*';
    end;
    rez2:=pos(stn,st);
  end;

 begin
  readln(st);
  STARS(st,p1,p2);
  writeln('first *: ',p1);
  writeln('fist max num of *: ',p2);
  readln;
 end.