10. Что выведет на экран эта программа? Запишите все символы в одной строке без пробелов.
type
TPet = class
public
name: string;
constructor Create;
begin name:='Джек'; write(name); end;
procedure Say;
begin write('Вау!'); end;
end;
TDog = class(TPet)
public
procedure Say(name0: string);
begin write(name); end;
end;
begin
var p := TDog.Create;
p.Say('Миша');
p.Say('Гоша');
end.