Помогите перевести с Паскаля на Python:
var
k, s: string;
n: integer;

begin
read(s);
n := 100;
while n > 0 do
begin
n := pos('/', s);
if n > 0 then
begin
k := copy(s, 1, n - 1);
writeln(k);
delete(s, 1, n);
end else
n := 0;
end;
k := copy(s, n, length(s));
writeln(k);
end.

Здравствуйте, не могли бы вы мне помочь с этим заданием пожалуйста https://znanija.com/task/25418346 Заранее спасибо.