Дано предложение. Напечатать все символы, расположенные между 1 и 2 запятой. Если 2 запятой нет, то должны быть напечатаны все символы, расположенные после единственной запятой.

// PascalABC.Net 3.0, сборка 1076 var   s,ss:string;   i,n,p:integer; begin   Write('Введите строку: '); Readln(s);   n:=Length(s); p:=Pos(',',s);   if p in [1..n-1] then begin     ss:=Copy(s,p+1,n-p);     n:=Length(ss); p:=Pos(',',ss);     if p=0 then Writeln(ss)     else Writeln(Copy(ss,1,p-1))     end   else Writeln('*** Нечего выводить ***') end.       Тестовые решения: Введите строку: 01234,45679,1011213,14151617 45679 Введите строку: 01234,45679101121314151617 45679101121314151617 Введите строку: 01234, *** Нечего выводить ***