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

program zz1;

var s:string; / / задаем переменную строкового типа

i, k:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

begin

if s[i] = ',' then k:=k+1; / / находим первую запятую

if (k = 1) and (s[i] ',') then write (s[i]); / / выводим символы на экран, пока не встретится вторая запятая, либо до конца строки

end;

end.