Question

Определите, какую задачу решает программа на Паскале:

program test2;

var SL:  string;  i:  integer;

begin

readln(SL);  

i:=1;

while  (i>=l)  and (SL[i]<>'*') and (i<=length(SL)) do

begin SL:=SL+'*';  i:=i+l end;

writeln(SL)

end.​