var s,s1:string;
     i,n:integer;
     f,g:text;
begin
writeln('введите дробное через запятую число ');
readln(s);
  i:=1;
  s1:='';
while pos(',',s)<>0 do
begin
s1:=s1+s[i];
i:=i+1;
n:=pos(',',s);
s1:=copy(s,1,n-1);
delete(s,1,n); 
writeln('=',s1);
end;
writeln('=',s);
end.