Ввести произвольный текст. В данном тексте есть символ ":".Вывести ** экран ту часть...

Question

Ввести произвольный текст. В данном тексте есть символ ":".Вывести на экран ту часть текста, которая находиться до первого символа ":".Помогите, прошу =)

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:string;
  Writeln('Введите текст'); Readln(s);
  for var i:=1 to s.Length do
    if s[i]<>':' then Write(s[i]) else break;
end.