Розв’язок задачі з Абрамова №260(усі)

Всі умови | Умова: Дано натуральне число n, серед символів s1, ..., sn, є хоча б одна двокрапка. а) Отримати всі символи, розташовані до першого входження двокрапки включно. б) Отримати всі символи, розташовані після першої двокрапки. в) Отримати всі символи, розташовані між першою і другою двокрапкою. Якщо другої двокрапки немає, то отримати всі символи, розташовані після входження першої двокрапки. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №260)

program Pr260;
var
  s : string;
  p, p2 : integer;
  sA, sB, sC : string;
begin
  readln(s);
  p := pos(':', s);
  sA := copy(s, 1, p);
  sB := copy(s, p + 1, length(s) - p);

  p2 := pos(':', sB);
  if p2 = 0 then
    sC := sB
  else
    sC := copy(sB, 1, p);

  writeln('Result A: ', sA);
  writeln('Result B: ', sB);
  writeln('Result C: ', sC);

  readln;
end.