Дана предложение напечатайте все символы до запятой

Question

Дана предложение напечатайте все символы до запятой

Answer 1

Var s: string;
    n: integer;
begin
  write('предложение: '); readln(s);
  n:=pos(',',s);
  if n>0 then writeln(copy(s,1,n-1))
  else writeln(s);
end.

предложение: декабрь, январь, февраль - зима.
декабрь