Нужно составить вот такое дерево. Составляем его по следующему принципу; в Н можно попасть из С, D и G. В С можно попасть из А и D, и так далее.
Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.
Копирование - CTRL+C
вставить- CTRL+V
Удаление - DELETE, ctrl z
удаление выбранного объекта - shift delete