Информатика! алгоритм сказки "репка"

0)начало  1)посадил дед репку  2)выростил  3)начал ее вытягивать из земли  4)позвал бабку  5)тянут потянут ,вытянуть не могут  5)позвали внучку  6)тянут потянут ,вытянуть не могут  7)позвали жучку  8)тянут потянут ,вытянуть не могут 9) позвали кошку  10) тянут потянут, вытянуть не могут  11)позвали мышку вытащили  12)конец

Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже

12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так