var str: string;
i,kol,n,pol: integer;
begin
readln(n);
pol:=1;
kol:=0;
for i:=1 to n do
begin
readln(str);
if (str='Alice')or(str='Ariel')or(str='Aurora')or(str='Phil')or(str='Peter')or(str='Olaf')or(str='Phoebus')or(str='Ralph')or(str='Robin') then
begin
kol:=kol+abs(pol-1);pol:=1;
end
else
if (str='Bembe')or(str='Belle')or(str='Bolt')or(str='Mulan')or(str='Mowgli')or(str='Mickey')or(str='Silver')or(str='Simba')or(str='Stitch') then
begin
kol:=kol+abs(pol-2);pol:=2;
end
else
if (str='Dumbo')or(str='Genie')or(str='Jiminy')or(str='Kuzko')or(str='Kida')or(str='Kenai')or(str='Tarzan')or(str='Tiana')or(str='Winnie') then
begin
kol:=kol+abs(pol-3);pol:=3;
end;
end;
write(kol);
end.

Edited by author 17.11.2016 23:36

Edited by author 17.11.2016 23:36

Check names carefully.

а все моя ошибка написал "Bembe" вместо "Bambi"

For me it was a type mistake in "Mickey"