var
slovo,slovo2:string;
simvol:Char;
a,ampirmetr:integer;
begin
readln (slovo);
a:=Pos(',',slovo);
ampirmetr:=length(slovo);
if a = 0 then writeln ('No data')
else begin
a:=a+1;
ampirmetr:=ampirmetr-a+1;
slovo2:=copy(slovo,a,ampirmetr);
writeln(slovo2);
end;
readln;
end.
Объяснение:
Имеется проверка на запятую.
В начале вводите текст с запятой, затем выполняется вывод текста после запятой (1 раз)
